通过VBA代码实现基于单元格值自动隐藏/取消隐藏行

使用工作表事件VBA代码实现自动触发 #

要实现公式结果变化时自动调整行的隐藏状态，必须借助工作表的Worksheet_Calculate事件——每次公式计算完成后，它会自动执行代码逻辑。

操作步骤 #

1. 打开目标Excel文件，按下Alt + F11快速打开VBA编辑器
2. 在左侧「工程资源管理器」中找到你要设置的工作表（比如Sheet1），双击打开其代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_Calculate()
    Dim cell As Range
    ' 遍历A8到A50的目标区域
    For Each cell In Me.Range("A8:A50")
        ' 根据单元格值判断是否隐藏行
        cell.EntireRow.Hidden = (cell.Value = "")
    Next cell
End Sub

4. 按Ctrl + S保存文件，务必选择「Excel启用宏的工作簿（*.xlsm）」格式，否则宏无法保存和运行

代码细节说明 #

• Worksheet_Calculate：仅在当前工作表的公式完成计算时触发，不会影响其他工作表
• Me.Range("A8:A50")：Me指代代码所在的工作表，确保只监控指定区域的单元格
• cell.EntireRow.Hidden = (cell.Value = "")：简化的判断逻辑，当单元格值为空文本时隐藏行，否则取消隐藏——不管空值是公式返回还是单元格本身为空，都能识别

关键注意事项 #

• 打开文件时若弹出「安全警告」，必须选择「启用内容」，否则宏不会生效
• 如果需要调整监控的行范围，直接修改代码里的A8:A50即可
• 若你的Excel禁用了宏，需要在「文件>选项>信任中心>信任中心设置>宏设置」中调整为「启用所有宏」（注意安全风险，仅在信任的文件中使用）

内容的提问来源于stack exchange，提问作者Muhammad Mohsin