gistfile1.bas

' バルクセット
Sub hoge()
    numcols = 100
    numrows = 1000
    
    Dim arr1
    ReDim arr1(numrows - 1, numcols - 1)
    For i = 0 To numrows - 1
        For j = 0 To numcols - 1
            arr1(i, j) = i * j
        Next
    Next
    Set myRange = Range(Cells(1, 1), Cells(numrows, numcols))
    myRange.Value = arr1
End Sub

' 1セルごとにセット
Sub hoge2()
    numcols = 100
    numrows = 1000
    
    For i = 0 To numrows - 1
        For j = 0 To numcols - 1
            Cells(i + 1, j + 1).Value = i * j
        Next
    Next
End Sub