Excel自动生成九九乘法表？

代码：Sub 生成九九乘法表（）Dim Rs As Byte, Cs As Byte, Arr As VariantReDim Arr（1 To 9, 1 To 9）For Rs = 1 To 9For Cs = 1 To 9If Rs ＞= Cs ThenArr（Rs, Cs） = Rs ＆ “ד ＆ Cs ＆ “=“ ＆ Rs * CsEnd IfNext Cs