返回列表 上一主題 發帖

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

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 

熱烈參與勳章好學求知勳章
2#
發表於 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

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題