Question

我正在尝试根据2个条件过滤表。

每次我的宏运行时，它都会显示

运行时错误'5'。无效的过程调用或参数。

在过滤工作表时发出消息。

我已经切换了笔记本电脑，并逐字复制了宏并将其保存在我的个人宏书中。使用我以前的笔记本电脑，该宏运行没有错误（我以前的笔记本电脑是Lenovo，而这是Dell）。

vba代码

Range("A2:X2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Range("A:X").AutoFilter Field:=16, Criteria1:="<>*East*", Criteria2:="<>*VO*", Operator:= xlFilterValues
Selection.ClearContents
ActiveSheet.Range("A:X").AutoFilter Field:=16, Criteria1:="PR VO"
ActiveSheet.Range("A:X").AutoFilter Field:=11, Criteria1:="<>*EC *", Operator:= xlFilterValues
Selection.ClearContents
ActiveSheet.Range("A:X").AutoFilter Field:=11
ActiveSheet.Range("A:X").AutoFilter Field:=16
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range ("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
    .Apply
End With

我希望这段代码可以过滤不符合条件的值并清除该数据。这基本上是为了筛选出我们东开普省地区的候选人。结果是Run-time Error '5'. Invalid procedure call or argument.

使用VBA筛选Excel时如何解决“运行时错误'5”

0 个答案: