Option Explicit
Option Base 1
Sub p()
Dim m(3, 2) As Double
Dim i As Integer
Dim j As Integer
For i = LBound(m, 1) To UBound(m, 1)
For j = LBound(m, 2) To UBound(m, 2)
m(i, j) = Rnd
Next
Next
For i = LBound(m, 1) To UBound(m, 1)
For j = LBound(m, 2) To UBound(m, 2)
Cells(i, j) = m(i, j)
Next
Next
End Sub
oppure senza bisogno di usare Option base 1
Sub p1()
Dim m(1 To 3, 1 To 2) As Double
Dim i As Integer
Dim j As Integer
For i = 1 To 3
For j = 1 To 2
m(i, j) = Rnd
Next
Next
Range("A1:B3") = m()
End Sub |