使用VBA生成九九乘法表

1、ALT+F11 打开VBA编辑器

2、在左侧工程栏找到你的工作薄,点击插入模块,双击模块,写入如下代码:

Sub cfkj()

For i = 1 To 9

For j = 1 To i

Cells(i + 1, j) = j & "*" & i & "=" & i * j

Next

Next

End Sub

3、为防止运行宏时,将现有的数据进行覆盖,建议先保存一下文件,并新建一个空工作表,将鼠标放在代码中间任意位置,按F5或点击运行按钮,即可以在当前激活的工作表中快速生成九九乘法表.