返回列表 上一主題 發帖

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

freeffly

帖子
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)
收藏 分享
字典兩各字 還真難理解

freeffly

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

熱烈參與勳章好學求知勳章
3#
發表於 2013-2-4 16:19 | 只看該作者
回復 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
複製代碼
字典兩各字 還真難理解

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
247  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-14 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-2-4 15:56 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題