UC头条：Excel VBA(8)

这个案例主要是帮助大家理解和掌握 for 循环语句的应用，代码非常简单。

效果：

方法：

1. 按 Alt + F11 打开 VBE，输入以下代码：

Sub 乘法表

Dim i As Byte, j As Byte, s As Byte '声明变量 i,j,s

For i = 1 To 9 'i为1到9的自然数

For j = i To 9 'j为1到9的自然数

Cells(j, i) = i & 'x' & j & '=' & s '单元格第 j 行 i 列的值为相应的乘法公式，变量和符号之间用 & 连接

Next j

Next i

End Sub

2. 回到 Excel 创建按钮，修改文字，将其宏指定为上述“乘法表”，完成！

3. 心血来潮，我再加一段清空代码，新建一个“清空”按钮指定这个新宏

Sub 乘法表

Dim i As Byte, j As Byte, s As Byte '声明变量 i,j,s

For i = 1 To 9 'i为1到9的自然数

For j = i To 9 'j为1到9的自然数

Cells(j, i) = i & 'x' & j & '=' & s '单元格第 j 行 i 列的值为相应的乘法公式，变量和符号之间用 & 连接

Next j

Next i

End Sub

Sub 清空

Range('A1:I9').Clear

End Sub