代码：Sub生成九九乘法表（）DimRsAsByte,CsAsByte,ArrAsVariantReDimArr（1To9,1To9）ForRs=1To9ForCs=1To9IfRs＞=CsThenArr（Rs,Cs）=Rs＆＆Cs＆=＆Rs*CsEndIfNextCsNextRsRange（B2）......
11-25 166 Excel自动生成九九乘法表
代码：Sub生成九九乘法表（）DimRsAsByte,CsAsByte,ArrAsVariantReDimArr（1To9,1To9）ForRs=1To9ForCs=1To9IfRs＞=CsThenArr（Rs,Cs）=Rs＆＆Cs＆=＆Rs*CsEndIfNextCsNextRsRange（B2）......
11-25 166 Excel自动生成九九乘法表