Question

我正在尝试按列D中的条件过滤数据，并将列C中的过滤器数据复制到另一个工作表。当我在数据表中运行此代码但是它不会运行并且给我运行时错误＆＃39; 1004＆＃39; 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

Answer 1

在代码顶部添加Data.Activate

将过滤后的数据复制到其他工作表

1 个答案: