VBA九九乘法表

nnsea

Sub nine9()

Dim i As Byte, j As Byte, s As Byte

For i = 1 To 9

    For j = i To 9

        s = j * i

        Cells(j, i) = i & "*" & j & "=" & s

    Next j

Next i

End Sub