excel - VBA自动过滤器不等于

Question

Sub Macro1()
‘Remove all except validated
ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

Activesheet.Range("$A$2:$O$99999").SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete

ActiveSheet.ShowAllData
 End sub

如何在 VBA 中替换“不等于”？
<> 不起作用。

Answer 1

如果您希望您的过滤条件排除“已验证”，请尝试更改此行:

ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:<>"Validated"

至

ActiveSheet.Range("$A$1:$H$5202").AutoFilter field:=8, Criteria1:="<>Validated"

请注意 =在 Criteria:=与您的过滤条件无关。 (它与 VBA 以及如何为命名参数提供参数有关。)