Sub test£¨£©
For i = 2 To 10
If Cells£¨i, "a"£© > 1 / 3 Then GoSub 100
Next
Exit Sub
100:
Cells£¨i, "b"£© = "³Ùµ½"
Return
End Sub

1/3¿ÉÒÔÓÃtime£¨8,0,0£©´úÌæ

gosubÄã¿ÉÒÔÀí½âΪgoÓësubÁ½¸öµ¥´Ê£¬sub֮ǰÒѾ­¼û¹ýµÄÏ൱ÓÚÒ»¸ö×Ó³ÌÐò£¬Ê¹ÓÃreturn¾ÍÊDZêÖ¾×ÅÕâ¸ö×Ó³ÌÐò½áÊø£¨Ï൱ÓÚend sub£©¡£gotoÖ»Êǵ¥¶ÀÌøתµ½Ö¸¶¨ÐУ¬²»ÄÜÓëreturnÅäºÏ¡£×ܵÄÀ´Ëµ£¬²»µ½Íò²»µÃÒÑ£¬±ðÓÃgotoºÍgosub¡£ÆäʵֻÓÐ×Ô¼º¶à˼¿¼Ò»Ï£¬ÄãÏëÓÃgotoÓëgosubµÄÇé¿ö£¬ÄãÖ»Òªµ÷ÕûһϴúÂë½á¹¹£¬ÓÃÆÕͨµÄif¡­¡­then¡­¡­elseÒÔ¼°Ñ­»·¶¼ÊÇÄܽâ¾öµÄ

½²1/3µÄʱºòÀíÓÉÓеãǣǿÁË£¬½²Ò»Ïµ¥Ôª¸ñµÄ¸ñʽ¾ÍºÜÃ÷ÁËÁË£¬Î޷ǾÍÊÇʱ¼ä¸ñʽºÍ³£¹æ¸ñʽµÄÇ뻶øÒÑ

Sub gotoÄãºÃ()
Dim r!
For r = 2 To 10
If Sheet1.Range("a" & r) > 1 / 3 Then goto100
Next r
Exit Sub
100:
Sheet1.Range("b" & r) = "³Ùµ½"
Return
End Sub
Ìáʾ×Ó¹ý³Ì»òº¯Êý䶨Òå

Sub gotoÄãºÃ()
Dim r%
For r = 1 To 10
If Range("b" & r) >= 90 Then gotosub 100
Next r
Exit Sub
100:
Range("c" & r) = "´óÓÚ"
Return
End Sub
×Ó¹ý³Ì»òº¯Êý䶨ÒåÊÇʲôÒâ˼