代碼：

Sub 生成九九乘法表（）

Dim Rs As Byte, Cs As Byte, Arr As Variant

ReDim Arr（1 To 9, 1 To 9）

For Rs = 1 To 9

For Cs = 1 To 9

If Rs ＞= Cs Then

Arr（Rs, Cs） = Rs ＆ “ד ＆ Cs ＆ “=“ ＆ Rs * Cs

End If

Next Cs

Next Rs

Range（“B2“）.Resize（9, 9）.Value = Arr

Call FC（Range（“B2“）.Resize（9, 9））

End Sub

Sub FC（Rng As Range）

With Rng

.FormatConditions.Delete

.FormatConditions.Add Type:=xlExpression, Formula1:=“=LEN（“ ＆ Rng.Cells（1）.Address（0, 0） ＆ “）＞0“

.FormatConditions（1）.Borders.LineStyle = xlContinuous

End With

End Sub

想看更多Excel教程和公式，敬請耐性關注excel后期分享更多的學習內容或者在網站留下您的困難，支持excel學習網一定不會讓你失望：

Excel插件是什么？

Excel插件就是一種依附在Excel軟件上的無敵通關神器。一般用戶需要N步才完成的操作，但現在可只需點一下菜單立馬完成。這樣不僅極大幅度減少學習復雜技術和用戶操作的時間從而提高效率。Excel插件還可根據用戶需求自定義修改，是重復操作的工作必備通過神器。