stillfish00

¦^´_ 1# jcchiang

1. Sub Test()
   
2.     Dim ar, i As Long, j As Long, cmax As Long
   
3.    
   
4.     With ActiveSheet
   
5.         ar = .[A1].Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(1, .Columns.Count).End(xlToLeft).Column).value
   
6.         cmax = UBound(ar, 2)
   
7.         For i = 2 To UBound(ar)
   
8.             For j = cmax To 2 Step -1
   
9.                 If ar(i, j) = "" Then Exit For
   
10.             Next
    
11.             If cmax - j >= 3 Then .Range(.Cells(i, j + 1), .Cells(i, cmax)).Interior.Color = vbYellow
    
12.         Next
    
13.     End With
    
14. End Sub

½Æ»s¥N½X