为何Excel VBA自动筛选会隐藏所有行？如何筛选H列零值行？

问题根源 #

你当前的AutoFilter条件逻辑错误：

• 你用Criteria1:=Array("0", "<>")但未指定Operator参数，Excel默认使用逻辑与（xlAnd），要求单元格同时满足"等于0"和"不等于0"，这显然没有符合条件的行，导致所有行被隐藏。
• 仅指定Range("H3")作为筛选范围，可能没有覆盖所有需要筛选的数据行，容易漏处理。

正确实现代码 #

要筛选掉H列零值行（即只显示非零值行），直接使用单条件筛选即可，同时确保筛选范围覆盖完整数据区域：

Set budgWB = Workbooks.Open(Range("A3").Value & VarCellValue & "\" & VarCellValue & ".xlsm")
Set budgBS = budgWB.Sheets("Budget Spread")

Workbooks(VarCellValue).Activate
budgBS.Range("A:B").EntireColumn.Hidden = False
budgBS.Range("25:37,153:165,594:603,715:727,786:798,846:858").EntireRow.Hidden = True

' 先取消已有筛选（避免冲突）
If budgBS.AutoFilterMode Then budgBS.AutoFilterMode = False

' 筛选H列非零值行，覆盖从H3到最后一行的有效数据
Dim lastRow As Long
lastRow = budgBS.Cells(budgBS.Rows.Count, "H").End(xlUp).Row
budgBS.Range("H3:H" & lastRow).AutoFilter _
    Field:=1, _
    Criteria1:="<>" & 0, ' 若H列为纯数值，也可直接写Criteria1:="<>"
    VisibleDropDown:=False

budgBS.Range("A:B").EntireColumn.Hidden = True
budgBS.Range("A1").Select
budgWB.Save
budgWB.Close

补充说明 #

• 如果H列包含文本型的"0"，可以把条件改成Criteria1:="<>" & "0"，确保匹配文本零值。
• 先取消已有筛选是好习惯，防止之前的筛选规则干扰新的筛选操作。

内容的提问来源于stack exchange，提问作者Larne Armstrung