excel vba 入门 计算1-100的乘积

执行从 1 到 100 的乘法。将执行结果保存在二维数组中。类似下图
添加执行结果、“公式”和“值”的表，并创建这两个表。
完成后，将公式和值表保存到外部文件中。
1 2 3 4 5
1 1 2 3 4 5
2 2
3 3
4 4
5 5

是这个意思吗？
Sub getsum()
Dim i As Integer, j As Integer
Dim data(100, 100) As Integer

k = 0
For i = 1 To 100
    For j = 1 To 100
        k = k + 1
        data(i, j) = i * j
        Range("A" & k).Value = i
        Range("B" & k).Value = j
        Range("C" & k).Value = i * j
    Next j
Next i
End Sub

用excel的函数也能实现啊

我也没明白你意思，没明白你要解决什么问题。

是要vba代码，还是实现就行。

Dim result(100, 100) As Double
For i = 1 To 100
For j = 1 To 100
result(i, j) = i * j
Next
Next

Range("A2").Select
For i = 1 To 100
For j = 1 To 100
ActiveCell.Value = result(i, j)
ActiveCell.Offset(0, 1).Select
Next
ActiveCell.Offset(1, -100).Select
Next

Range("D2").Select
For i = 1 To 100
For j = 1 To 100
ActiveCell.Value = i &"*"&j
ActiveCell.Offset(0, 1).Select
Next
ActiveCell.Offset(1, -100).Select
Next

Range("G2").Select
For i = 1 To 100
For j = 1 To 100
ActiveCell.Value = result(i, j)
ActiveCell.Offset(0, 1).Select
Next
ActiveCell.Offset(1, -100).Select
Next