Excel aufmöbeln mit VBA

Sheets(2).Range("A1").Resize(zanz, sanz).Value = mat ’(*)
End Sub
mat
zans sanz
LBound UBound
MatToRange
i
j
Variant
RangeToMat FromRange
Sub RangeToMat()
Dim FromRange As Variant
FromRange = Worksheets(2).Range("A1").CurrentRegion.Value
MsgBox LBound(FromRange, 1) & ", " & UBound(FromRange, 1) _
& ", " & LBound(FromRange, 2) & ", " & UBound(FromRange, 2)
End Sub
Variant
MatMax
SetHilbert n
n ai,j 1/(i+j−1)
a1,1 = 1 a2,3 = a3,2 = 1/4
Option Explicit
Option Base 1
Function MatMax(ByRef m() As Double) As Double
Dim i As Long, j As Long
MatMax = m(LBound(m, 1), LBound(m, 2))
For i = LBound(m, 1) To UBound(m, 1)
For j = LBound(m, 2) To UBound(m, 2)
If m(i, j) > MatMax Then MatMax = m(i, j)