
如果你一定要用这个格式
=IF(COLUMN()+1>ROW(),"",B$2&"×"&$A3&"="&B$2$A3)
然后向下向右填充
=TEXT(COLUMN(),"G/通用格式")&""&TEXT(ROW(),"G/通用格式")&"="&--COLUMN()ROW(),从左上角的单元格开始输入即可
在任一单元格中输入
=IF(ROW(A1)>=COLUMN(A1),COLUMN(A1)&""&ROW(A1)&"="&ROW(A1)COLUMN(A1),"")
然后将公式拖曳填充乘法表区域。
贴到VBE窗口:
Sub 加法表()
For a = 1 To 9
For b = 1 To 9
Cells(a, b)Formula = a & " + " & b & "=" & a + b
Next
Next
End Sub
Sub 乘法表()
For a = 1 To 9
For b = 1 To 9
Cells(a, b)Formula = a & " × " & b & "=" & a b
Next
Next
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)