产生乘法口诀表

1.自动生成行和列
2.选定区域
3.=a2:a10*b2:k2
4.ctrl+shift+enter
5.f2进行修改，修改后，再次ctrl+shift+enter

拉动这个格子的拉条，可以产生
=ROW(B1)&"×"&COLUMN(B1)&"="&ROW(B1)*COLUMN(B1)

修改
仅仅需要斜线下方的格子
=IF(ROW(A1)<COLUMN(A1),"",ROW(A1)&"×"&COLUMN(A1)&"="&ROW(A1)*COLUMN(A1))

Sub 乘法口诀()
Dim i As Byte, j As Byte, arr(1 To 9, 1 To 9)
For i = 1 To 9
For j = 1 To i
arr(i, j) = i & "**" & j & "=" & i * j
Next j
Next i
[a1].Resize(9, 9) = arr
End Sub

转载于:https://www.cnblogs.com/tutorial/p/8862610.html