VBA编程快速生成九九乘法表

打开VBA代码窗口
插入模块
插入子程序
敲以下代码

Public Sub cv()
Dim i%, j%
For i = 1 To 9
For j = 1 To 9
If i >= j Then Cells(i, j) = Str(i) & "x" & Str(j) & "=" & i * j
Next j, i
End Sub

然后运行，excle表格就会自动生成九九乘法表

OK啦