標題:
請問欄位複製的問題
[打印本頁]
作者:
tonycho33
時間:
2012-3-22 11:43
標題:
請問欄位複製的問題
本帖最後由 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
複製代碼
作者:
hugh0620
時間:
2012-3-22 12:14
回復
1#
tonycho33
依照樓主的表示方式
aa3是原始資料區
aa1是結果區
若是這個情況的話~
建議原始資料區~ 不要進行刪除的條件~
你要的只是依你條件將aa3的資料放在aa1
我將結果放在aa1 B欄位中
依條件~
aa3 Y欄位中有資料的儲存格放在aa1 B欄位 ,並將[已排]的資料排除,共得到124筆數據
又
在aa1 A欄位的表示方式~ 是三個合併儲存格放一筆aa3 Y的資料
Sub ex()
Dim A As Range
For Each A In Sheet3.Range("Y:Y")
If A <> "" And A.Offset(0, 2) <> "已排" Then
Sheet1.Range("B" & 3 + N) = A
Sheet1.Range("B" & 3 + N & ":B" & 3 + N + 2).Merge
N = N + 3
End If
Next
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)