GBKEE

¦^´_ 2# stillfish00

1. For j = cmax To 2 Step -1
   
2.                 If ar(i, j) = "" Then Exit For '¨S¦³¸ê®Æ¸õ¥X°j°é
   
3.             Next

½Æ»s¥N½X

§Aªºµ{¦¡½X¥u¥i¼Ð¥Ü¥X¥Ñ³Ì«á©¹«eºâ³sÄò3¶g¥H¤W¸ê®Æ
¦p¸ê®Æ¦³¤¤Â_«á,¦A©¹«eÁÙ¦³³sÄò3¶g¥H¤W¸ê®Æ,§Aªºµ{¦¡½XµLªk¼Ð¥XÀx¦s®æ©³¦â

­×¥¿¤@¤U,¥i¼Ð¥X¸ê®Æ¤¤¤£¥u¤@­Ó°Ï¶¡¦³³sÄò3¶g¥H¤W¸ê®ÆÀx¦s®æ©³¦â

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Long, C As Long, Cmax As Integer
   
4.     With ActiveSheet.Range("A1").CurrentRegion
   
5.         .Cells.Interior.ColorIndex = xlNone
   
6.         For R = 2 To .Rows.Count
   
7.             C = 2
   
8.             Do While C <= .Columns.Count
   
9.                 Cmax = 0
   
10.                 Do While .Cells(R, C + Cmax) <> ""
    
11.                     Cmax = Cmax + 1
    
12.                 Loop
    
13.                 If Cmax >= 3 Then .Cells(R, C).Resize(, Cmax).Interior.Color = vbYellow
    
14.                 C = C + 1 + Cmax
    
15.             Loop
    
16.         Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X