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

1、在一個(gè)工作表區(qū)域內(nèi)(B12:J12),依次輸入1-9.(A13:A21)區(qū)域內(nèi)依次輸入1-9.然后再單元格B13內(nèi)輸入一個(gè)公式,通過(guò)拖曳填充產(chǎn)生具有上三角矩陣結(jié)構(gòu)的九九乘法表

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　 ‘定義相乘的一個(gè)數(shù)字變量

msg = msg & Chr(10)

For j = 1 To I ‘定義另一個(gè)數(shù)字變量

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") &

‘完成兩個(gè)數(shù)字相乘運(yùn)行，如相乘的結(jié)果小于10的話則在中間加“地”字

Space(3)

Next

Next

MsgBox msg, 64, "九九表"　 ‘顯示在窗口右上角的標(biāo)題

End Sub