做九九乘法表，多种思路造就多种方法生成，

1、在一个工作表区域内(B12:J12),依次输入1-9.(A13:A21)区域内依次输入1-9.然后再单元格B13内输入一个公式,通过拖曳填充产生具有上三角矩阵结构的九九乘法表

2、在a13到a21输入1-9

b13输入

=IF(B$12=$A13,B$12*$A13,)

然后拖拉即可

3、在b2单元格输入如下公式：

=IF(AND($A2,B$1,B$1=$A2),B$1$A2=B$1*$A2,)

A1单元格的公式如下:

=IF(AND(ROW()10,COLUMN()10,COLUMN()=ROW()),ROW()COLUMN()=ROW()*COLUMN(),)

4、Sub 九九表()

Dim i As Byte, j As Byte, msg As String

For i = 1 To 9 定义相乘的一个数字变量

msg = msg Chr(10)

For j = 1 To I 定义另一个数字变量

msg = msg WorksheetFunction.Text(j, [DBNum1][$-804]0) WorksheetFunction.Text(i, [DBNum1][$-804]0) VBA.IIf(i * j 9, , 得) _

WorksheetFunction.Text(i * j, [DBNum1][$-804]0)

完成两个数字相乘运行，如相乘的结果小于10的话则在中间加地字

Space(3)

Next

Next

MsgBox msg, 64, 九九表 显示在窗口右上角的标题

End Sub