VBA 自动筛选不等于

Question

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

Activesheet.Range("$A:$O999").SpecialCells(xlCellTypeVisible).Select
Selection.EntireRow.Delete

ActiveSheet.ShowAllData
 End sub

如何替换VBA中的"not equal than"？ <> 无效。

Answer 1

如果您希望过滤条件排除 "Validated"，请尝试更改此行：

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

到

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

请注意，Criteria:= 中的 = 与您的筛选条件没有任何关系。（它与 VBA 以及如何为命名参数提供实参有关。）

VBA 自动筛选不等于

VBA Autofilter not equal to

excel

vba

filter

basic