VBA 99乘法表

 

 

 

 

Sub chenfa99biao()


For i = 1 To 9
   For j = 1 To i
     Debug.Print i & "*" & j & "=" & i * j & " ";
   Next
   Debug.Print
Next

End Sub

 

 

 

Sub chenfa99biao()


For i = 1 To 9
   For j = 1 To i
     Debug.Print i & "*" & j & "=" & i * j & " ";
     Cells(i, j) = i & "*" & j & "=" & i * j & " "
   Next
   Debug.Print
   
Next

End Sub