Hsieh

¦^´_ 1# freeffly

1. Sub ex()
   
2. Dim a As Range, Rng As Range
   
3. With Sheets("10202¤ë (2)")
   
4. i = 1
   
5.    Set Rng = Union(.[A3:G3], .[A8:G8], .[A13:G13], .[A18:G18], .[A23:G23])
   
6.    For Each a In Rng.SpecialCells(xlCellTypeBlanks)
   
7.        If a.Interior.ColorIndex = -4142 Then
   
8.            a = .Range("J" & i)
   
9.            i = i + 1
   
10.        End If
    
11.     Next
    
12. End With
    
13. End Sub

½Æ»s¥N½X