[發問] 請問如何依序貼上資料

freeffly

請問要如何依序貼上J欄的資料到左邊3、13、18...等列上
1.填滿設定在星期一至星期五下面第一格空格
2.如果是有填滿顏色的就不貼(格式化條件的顏色不在此限)

請教有人知道如何弄嗎?







依序貼上.rar (5.26 KB)

下載次數: 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

複製代碼

freeffly

回復 2# Hsieh
謝謝超版指點
我是卡在x這一個沒想到怎麼處理

1. Sub 填上工作項目()
   
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

複製代碼