Excel 365：单元格值为0时自动批量隐藏每组4行并自动触发

实现思路 #

利用工作表的Worksheet_Change事件自动触发判断逻辑，同时循环处理所有4行分组，全程无需手动操作，适配经验有限的用户。

操作步骤 #

• 右键目标工作表标签（如「Sheet1」），选择「查看代码」打开VBA编辑器
• 删除编辑器中原有内容，粘贴下方代码
• 将文件保存为**启用宏的工作簿（.xlsm）**格式（必须用此格式才能保留宏功能）

完整VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim startRow As Long
    Dim checkCell As Range
    Dim groupRows As Range
    
    ' 强制刷新公式计算，确保判断的是最新数据
    Calculate
    
    ' 循环处理所有4行分组：从第8行开始，每次步进4行，覆盖到732-735的最后一组
    For startRow = 8 To 732 Step 4
        ' 定位每组的判断单元格（D列对应分组起始行）
        Set checkCell = Me.Range("D" & startRow)
        ' 定位当前分组的4行范围
        Set groupRows = Me.Range(startRow & ":" & startRow + 3)
        
        ' 判断单元格值是否为0（兼容数值型0和文本型0）
        If checkCell.Value = 0 Or checkCell.Value = "0" Then
            groupRows.EntireRow.Hidden = True
        Else
            groupRows.EntireRow.Hidden = False
        End If
    Next startRow
End Sub

注意事项 #

• 工作表中任何单元格内容变化时，代码会自动重新检查所有分组，自动调整行的显示/隐藏状态
• 若你的判断单元格仅为数值型0，可删除代码中Or checkCell.Value = "0"部分，只保留checkCell.Value = 0
• 务必保存为「启用宏的工作簿」，否则宏会丢失无法生效

内容的提问来源于stack exchange，提问作者Ryan Cooney