麻辣家族討論版版 » Excel程式區 » 請問如何依序貼上資料

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-2-4 15:34 | 顯示全部帖子

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

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

請教有人知道如何弄嗎?

依序貼上.rar (5.26 KB)

樓主熱帖

收藏

字典兩各字還真難理解

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

2^#

發表於 2013-2-4 16:19 | 顯示全部帖子

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

Sub 填上工作項目()
x = 1
For i = 3 To Range("A65536").End(xlUp).Row + 2
For c = 1 To 5
If i Mod 5 = 3 And Cells(i, c).Interior.ColorIndex = -4142 Then
Cells(i, c) = Range("J" & x)
x = x + 1
End If
Next
Next
End Sub

複製代碼

字典兩各字還真難理解

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

返回列表下一主題上一主題