¿ÉÒÔÔÚÄÚ²ãÑ­»·Ê¹ÓÃif b>a then exit for ¼°Ê±Í˳ö²»±ØÒªµÄÄÚ²ãÑ­»·¡£

Sub ¾Å¾Å³Ë·¨±í¸ôÐвÊÉ«ÌîÉ«2£¨£©
Dim c!, d!
c = 1
d = 1
Do Until Sheet1.Cells£¨c, d£© = ""
Sheet1.Cells£¨c, d£©.Interior.ColorIndex = d + 3
c = c + 2
Do Until Sheet1.Cells£¨c, d£© = ""
Sheet1.Cells£¨c, d£©.Interior.ColorIndex = d + 3

d = d + 1
Loop
d = 1
Loop
End Sub
[ßÚÑÀ]
[¿ªÐÄ]

¿´µ½´ó¼Ò°ÑÀÏʦÐãµÃͷƤ·¢ÂéÎҾͷÅÐÄÁË[Ц¿Þ]

ÀÏʦ¿ÉÒÔ½«µÚ¶þ¸önextµÄ9¸Ä³Éa£¬ÕâÑù¿ÉÒÔ¼õÉÙ¿ÕµÄÑ­»·£¬È¥µôÅжϡ£
Dim x!, y!, i!
For x = 1 To 9
For i = 1 To x
y = i * x

Sub ¾Å¾Å³Ë·¨±í£¨£©
Dim a%, b%
For a = 1 To 9
For b = 1 To a
Sheet2.Cells£¨a, b£© = b & "*" & a & "=" & a * b
Next b
Next a
End Sub

If b > a Then Exit For¾Í¿ÉÒÔ²»Ö´ÐжàÓà¹ý³Ì