- 帖子
- 102
- 主題
- 30
- 精華
- 0
- 積分
- 137
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- 12
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-11-24
- 最後登錄
- 2018-12-6
|
請問欄位複製的問題
本帖最後由 tonycho33 於 2012-3-22 11:45 編輯
請問欄位複製的問題
請問目前有3個sheet分別是aa1,aa2,aa3
我想把aa3的sheet的Y欄copy到aa1的A欄，
但是有條件就是
1.aa3的Y欄空格要刪除
2.aa3的AA欄有出現"已排"也要刪除
3.aa3的Y欄到AA欄是套公式進來的
之前的作法是新增一個sheet--aa2，先在這邊作錄製巨集的篩選
然後再轉到aa1
請問有更簡潔的寫法嗎
謝謝
之前的巨集如下- Sheets("aa3").Select
- Columns("Y:AA").Select
- Selection.Copy
- Sheets("aa2").Select
- Columns("F:F").Select
- Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
- :=False, Transpose:=False
- Cells.Select
- Selection.AutoFilter
- Selection.AutoFilter
- Selection.AutoFilter Field:=6, Criteria1:="="
- Rows("2:2").Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.Delete Shift:=xlUp
- Selection.AutoFilter Field:=6
- Selection.AutoFilter Field:=8, Criteria1:="已排"
- Rows("4:4").Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.Delete Shift:=xlUp
- Selection.AutoFilter Field:=8
- Cells.Select
- Selection.AutoFilter
- Sheets("aa1").Select
|
-
-
Book1.rar
(12.56 KB)
|
發表於 2012-3-22 11:43
| 
