- 帖子
- 147
- 主題
- 46
- 精華
- 0
- 積分
- 205
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-3-19
- 最後登錄
- 2021-5-21
|
本帖最後由 jj369963 於 2013-11-3 18:10 編輯
回復 9# GBKEE
Dear GBKEE版大:
您好
1.測試後，只搬移標題列，格式化的列並未搬移
謝謝，再煩請指教
另外這是我用錄製做的語法來套用，也出錯，但時有時有把部分列移過去，
再勞煩您看一下了，感謝- Sub Macro1()
- '
- Cells.Select
- Selection.AutoFilter
- ActiveSheet.Range("$A$1:$CQ$376").AutoFilter Field:=6, Criteria1:=RGB(250, _
- 192, 144), Operator:=xlFilterCellColor
- Selection.Copy
- Sheets("無作答").Select
- ActiveSheet.Paste
- Sheets("Sheet0").Select
- Application.CutCopyMode = False
- Rows("59:411").Select
- Selection.Delete Shift:=xlUp
- ActiveSheet.Range("$A$1:$CQ$370").AutoFilter Field:=6, Criteria1:=RGB(3, _
- 255, 101), Operator:=xlFilterCellColor
- Selection.Copy
- Application.CutCopyMode = False
- Selection.Copy
- Rows("1:338").Select
- Application.CutCopyMode = False
- Selection.Copy
- Sheets("無帳密").Select
- ActiveSheet.Paste
- Sheets("無帳密").Select
- Rows("18:402").Select
- Application.CutCopyMode = False
- Rows("18:18").Select
- ActiveWindow.SmallScroll Down:=-3
- Rows("18:402").Select
- Selection.Delete Shift:=xlUp
- Selection.AutoFilter
- End Sub
|
|
發表於 2013-10-30 22:14
| 
