1、打开excel表格，再打开VBA编辑界面（All+F11）
2、点击插入模块
3、在模块中输入Sub 乘法表回车，后面的()与End Sub就自动弹出了
4、输入n1 n2两个从1到9的循环变量
Dim n1, n2
For n1 = 1 To 9
For n2 = 1 To 9
Next n2
Next n1
5、再在中间输入条件判断，当n2大于等于n1时，就退出循环，否则就在单元里出现从1到9的乘法表达式
If n2 >= n1 Then
Exit For
Else
Cells(n1, n2) = n2 & "x" & n1 & "=" & n1 * n2
End If
6、写完后按F5，表格里就出现如下乘法表了
7、如果要从第一个单元格起录入乘法表，就将If n2 > =n1 Then，写成If n2 > n1 Then，去掉=
8、如果要从第三行，第三列录入乘法表Cells(n1, n2)，写成Cells(n1 + 2, n2 + 2)
