excel vba autofilter not equal to blank

您好，要筛选 Excel 表格中某一列中不为空的数据，可以使用 VBA 中的 AutoFilter 方法。

首先，您需要选择需要筛选的列，然后在 VBA 代码中使用以下语句：

ActiveSheet.Range("A1:D10").AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
其中，“A1:D10” 是需要筛选的数据范围，Field:=1 表示需要筛选第一列，Criteria1:="<>" 表示不等于空的条件，Operator:=xlAnd 表示同时满足多个筛选条件（这里只有一个条件）。
完整的 VBA 代码如下：
Sub FilterNotBlanks()
    '选择需要筛选的列的数据范围
    Dim rng As Range
    Set rng = Range("A1:D10")
    '启用 AutoFilter
    rng.AutoFilter
    '筛选不为空的数据
    rng.AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
End Sub
这样，就可以通过 VBA 的 AutoFilter 方法筛选出指定列中不为空的数据了。