[µo°Ý] ½Ð°Ý¦p¦ó¨Ì§Ç¶K¤W¸ê®Æ

freeffly

½Ð°Ý­n¦p¦ó¨Ì§Ç¶K¤WJÄ檺¸ê®Æ¨ì¥ªÃä3¡B13¡B18...µ¥¦C¤W
1.¶ñº¡³]©w¦b¬P´Á¤@¦Ü¬P´Á¤­¤U­±²Ä¤@®æªÅ®æ
2.¦pªG¬O¦³¶ñº¡ÃC¦âªº´N¤£¶K(®æ¦¡¤Æ±ø¥óªºÃC¦â¤£¦b¦¹­­)

½Ð±Ð¦³¤Hª¾¹D¦p¦ó§Ë¶Ü?







¨Ì§Ç¶K¤W.rar (5.26 KB)

¤U¸ü¦¸¼Æ: 7

2013-2-4 15:31

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

freeffly

¦^´_ 2# Hsieh
ÁÂÁ¶Wª©«üÂI
§Ú¬O¥d¦bx³o¤@­Ó¨S·Q¨ì«ç»ò³B²z

1. Sub ¶ñ¤W¤u§@¶µ¥Ø()
   
2.     x = 1
   
3.     For i = 3 To Range("A65536").End(xlUp).Row + 2
   
4.     For c = 1 To 5
   
5.     If i Mod 5 = 3 And Cells(i, c).Interior.ColorIndex = -4142 Then
   
6.     Cells(i, c) = Range("J" & x)
   
7.            x = x + 1
   
8.     End If
   
9.     Next
   
10.     Next
    
11. End Sub

½Æ»s¥N½X