excel vba autofilter criteria not equal to blank

如果您想在 VBA 中使用 Autofilter 来筛选出不为空的数据，可以使用以下代码：

ActiveSheet.Range("A1:D100").AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd
这段代码做了什么：
ActiveSheet.Range("A1:D100").AutoFilter: 开始筛选
Field:=1: 筛选第1列的数据（即A列），如果要筛选其他列，请更改数字即可
Criteria1:="<>", Operator:=xlAnd: 指定筛选条件，"<>" 表示不等于空，xlAnd 表示同时满足所有条件
您可以根据需要修改这些参数来实现您的筛选目的。如果您需要对多个列进行筛选，则可以使用多个筛选条件，例如：
ActiveSheet.Range("A1:D100").AutoFilter Field:=1, Criteria1:="<>", Operator:=xlAnd, _
                                          Field:=2, Criteria1:="<>", Operator:=xlAnd
此代码将同时筛选第1列和第2列，保留值不为空的数据。
希望这可以帮助您解决您的问题！