將過濾的數據複製到不同的工作表

我想按列D中的條件過濾數據，並將C列中的過濾器數據複製到另一個工作表。當我在數據表中運行此代碼時，此代碼有效，但它不會運行並給我運行時錯誤'1004' Range類的選擇方法失敗，突出顯示代碼的第一行。任何人都可以幫助我，讓我可以在任何工作表中運行此代碼？將過濾的數據複製到不同的工作表

Sheets("Data").Range("D1").Select 
ActiveSheet.Range("$A:$AI").AutoFilter Field:=4, Criteria1:= _ 
    "Production" 
Range(ActiveSheet.Range("C2"), ActiveSheet.Range("C2").End(xlDown)).Select 
Selection.Copy 
Sheets("Excluding List").Select 
Range("B3").Select 
Selection.PasteSpecial xlPasteValues 
Sheets("Data").Select 
Selection.AutoFilter 
Sheets("Data").Range("A1").Select 
ActiveSheet.EnableCalculation = False 
ActiveSheet.EnableCalculation = True

來源

2016-03-29 BLkrn

沒有變化表（「數據」），範圍（「D1」）。頂部添加Data.Activate選擇表（「數據」）。選擇有什麼區別？ – Slubee

不，它不。我有對於每個slcr在ActiveWorkbook.SlicerCaches slcr.ClearManualFilter 接着slcr 與選定ActiveWorkbook.SlicerCaches（「Slicer_Excluding」） .SlicerItems（「Y」）。=假 .SlicerItems（「N」）。所選= True 以結尾這可能會導致錯誤？這就是我之前的代碼 – BLkrn

我已經刪除了該行，但仍然沒有好的 – BLkrn

你的代碼的

來源

2016-03-29 18:57:54 aFast

它現在的作品，非常感謝。我可以問你爲什麼需要這個嗎？ – BLkrn

不知道:)它只是工作 – aFast

將過濾的數據複製到不同的工作表

回答

相關問題