Question

过滤字段有多个数字，公式（结果为“ - ”）和空白如何编写VBA代码来过滤所有数字并排除“ - ”和空白。
“ - ”不是文本或字符串，而是公式的结果。

On Error Resume Next
ActiveSheet.ShowAllData
Range("G8").AutoFilter Filed:=7,  Criteria2:="=" 
Range("N8").AutoFilter Field:=14, Criteria1:="<>-", _
    Operator:=xlAnd, Criteria2:="<>"

Answer 1

试试这个：

编辑1：对于您的示例，它应该是：

Range("N8").AutoFilter Field:=1, Criteria1:="<>-" _
    , Criteria2:="<>", Operator:=xlAnd

这将根据公式过滤掉-的空白和单元格请注意，您只使用一个只有1个数据字段的Cell N8。

Edit2 ：让其发挥作用的另一种方法是明确定义您正在处理的范围。

Dim r As Range
Set r = Sheets("Sheet1").Range("A1:N100") 'change to suit
r.AutoFilter Field:=14, Criteria1:="<>-" _
    , Criteria2:="<>", Operator:=xlAnd

这是你正在尝试的吗？ HTH。

过滤以排除公式和空白

1 个答案: