Õâ¸ö¿ÉÒÔ¸ü¼òµ¥Ò»µãµÄ£¡²»ÐèÒªifÅжϵģ¡

chr£¨10£©ÓÐʲôÓã¿

MARKһϣ¬ºÃ¼ÇºÜ¶à

For num2 = 1 To num1 Ö±½ÓǶÌ×Õâ¸ö¾ÍÐÐ

Dim r As Integer, c As Integer
For c = 1 To 9 Step 1 'ÁÐ
For r = c To 9 Step 1 'ÐÐ
Cells(r, c).Value = c & "x" & r & "=" & r * c
Next r
Next c

Sub ±í¸ñ£¨£©
Dim num1, num2
For num1 = 1 To 9
For num2 = 1 To num1

Cells£¨num1, num2£© = num1 & " x" & num2 & " = " & num1 * num2

Next num2
Next num1
End Sub