1、ALT+F11打开VBA编辑器
2、在左侧工程栏找到你的工作薄,点击插入模块,双击模块,写入如下代码:Sub cfkj猾诮沓靥()For i = 1 To 9For j = 1 To iCells(i + 1, j) = 枣娣空郅j & "*" & i & "=" & i * jNextNextEnd Sub
3、为防止运行宏时,将现有的数据进行覆盖,建议先保存一下文件,并新建一个空工作表,将鼠标放在代码中间任意位置,按F5或点击运行按钮,即可以在当前激活的工作表中快速生成九九乘法表.
1、ALT+F11打开VBA编辑器
2、在左侧工程栏找到你的工作薄,点击插入模块,双击模块,写入如下代码:Sub cfkj猾诮沓靥()For i = 1 To 9For j = 1 To iCells(i + 1, j) = 枣娣空郅j & "*" & i & "=" & i * jNextNextEnd Sub
3、为防止运行宏时,将现有的数据进行覆盖,建议先保存一下文件,并新建一个空工作表,将鼠标放在代码中间任意位置,按F5或点击运行按钮,即可以在当前激活的工作表中快速生成九九乘法表.