ç®åä¹ä¹ä¹æ³è¡¨VBA示ä¾ï¼
Sub ä¹ä¹ä¹æ³è¡¨()
Dim num1, num2 As Integer
On Error Resume Next
For num1 = 1 To 9
For num2 = 1 To 9
If num2 > num1 Then
Exit For
Chr (10)
Else
Cells(num1, num2) = num1 & "Ã" & num2 & "=" & num1 * num2
End If
Next num2
Next num1
End Sub