VBA筛选器宏未产生预期结果

Question

我正在使用下面的代码来排除null和“（blank）”值。不幸的是，它似乎只是删除了空值。请帮助

ActiveSheet.AutoFilter field:=1, Criteria1:="<>" & "", Operator:=xlAnd, Criteria2:="<>(blank)"

Answer 1

类似的东西：

Option Explicit
Sub testFilter()
    Dim WS As Worksheet:    Set WS = Worksheets("sheet1")
    Dim R As Range: Set R = WS.Cells(1, 1).CurrentRegion

If WS.AutoFilterMode = True Then _
    WS.AutoFilter.ShowAllData

R.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd, Criteria2:="<>(blank)"

End Sub

注意：

• 您应该使用AutoFilter对象的Range 方法，而不是{{1}的Autofilter 属性 }}对象，如代码中所示。