使用VBA根据含跨表链接的空单元格自动隐藏/显示多行

核心实现思路 #

• 事件选型：采用Worksheet_Calculate事件挂载在「Production Schedule」工作表模块下，由于判定单元格内置跨表引用公式，公式结果变动不会触发常规的Change事件，Calculate事件可准确捕获公式重算后的结果变化；额外搭配工作表激活事件、工作簿打开事件做状态校验，避免文件打开、切换工作表时行显示/隐藏状态不匹配。
• 规则配置抽离：将所有区块的判定单元格、对应隐藏行范围统一维护在常量配置中，后续新增区块规则无需修改核心判断逻辑，仅需在配置中追加条目即可，适配不同区块判定位置、隐藏范围不统一的扩展需求。
• 执行逻辑优化：代码运行时临时关闭屏幕更新，减少界面卡顿；遍历所有配置项时，直接读取判定单元格的显示值，为空则隐藏对应行范围，存在有效值则自动取消隐藏，「Program Data」表录入数据触发公式重算后，会自动同步行的显示状态。

完整代码 #

「Production Schedule」工作表模块代码 #

按Alt+F11打开VBA编辑器，在左侧工程资源管理器中双击「Production Schedule」工作表，粘贴以下代码：

' 规则配置：格式为 判定单元格地址,隐藏行起始行号,隐藏行结束行号，多条规则用|分隔
' 新增规则直接在后面追加即可，示例："E15,13,20|E21,21,28|E29,29,36"
Private Const HIDE_RULES As String = "E15,13,20|E21,21,28"

Private Sub Worksheet_Calculate()
    Dim ruleList As Variant, singleRule As Variant
    Dim triggerCell As Range
    Dim rowStart As Long, rowEnd As Long, i As Long
    
    Application.ScreenUpdating = False
    ruleList = Split(HIDE_RULES, "|")
    
    For i = LBound(ruleList) To UBound(ruleList)
        singleRule = Split(ruleList(i), ",")
        Set triggerCell = Me.Range(singleRule(0))
        rowStart = CLng(singleRule(1))
        rowEnd = CLng(singleRule(2))
        
        ' 根据判定单元格显示值切换行状态
        Me.Rows(rowStart & ":" & rowEnd).Hidden = (Trim(triggerCell.Text) = "")
    Next i
    
    Application.ScreenUpdating = True
End Sub

' 切换到当前工作表时自动校验一次状态
Private Sub Worksheet_Activate()
    Call Worksheet_Calculate
End Sub

ThisWorkbook模块初始化代码 #

在VBA编辑器左侧工程资源管理器中双击ThisWorkbook，粘贴以下代码，实现打开文件时自动初始化行状态：

Private Sub Workbook_Open()
    Sheets("Production Schedule").Calculate
End Sub

使用注意事项 #

• 新增区块规则时，仅需修改HIDE_RULES常量内容，按照判定单元格,起始行,结束行的格式追加条目，不同规则之间用|分隔即可，无需调整其他代码。
• 文件需要保存为.xlsm（启用宏的工作簿）格式，打开文件时选择启用宏，代码才能正常运行。
• 代码通过判定单元格的显示值做判断，兼容单元格内置跨表公式的场景：当「Program Data」表对应引用单元格为空时，判定单元格显示为空，自动隐藏对应行；当「Program Data」表录入数据后，公式返回有效值，对应行会自动取消隐藏，无需手动操作。

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