Excel 2016 VBA：根据单元格值隐藏行的代码无法生效求助

首先得说清楚为啥你的代码没反应：你用的Worksheet_Change事件，只有当用户手动输入或修改单元格内容的时候才会触发，但目标单元格是通过公式计算出来的，它的值变化属于工作表计算更新，这个事件根本捕捉不到——这就是问题的核心！

那该怎么改呢？直接换成Worksheet_Calculate事件就好，这个事件会在工作表完成重新计算（包括公式结果更新）时触发。另外还要注意处理可能的循环触发问题，比如隐藏行的操作可能会引发再次计算，所以要临时关闭事件触发。

给你一个完整的示例代码，你可以根据自己的实际情况调整：

Option Compare Text

Private Sub Worksheet_Calculate()
    ' 关闭事件触发，避免循环
    Application.EnableEvents = False
    
    Dim targetCell As Range
    Set targetCell = Me.Range("A1") ' 替换成你的目标单元格地址
    
    ' 示例：根据目标单元格的值隐藏特定行
    Select Case targetCell.Value
        Case "A"
            ' 隐藏行5到行10，可替换成你需要的行范围
            Me.Rows("5:10").Hidden = True
        Case "B", "C"
            Me.Rows("5:10").Hidden = False
        ' 可以继续添加更多判断条件
        Case Else
            ' 默认处理，比如不隐藏或者隐藏其他行
            Me.Rows("5:10").Hidden = False
    End Select
    
    ' 重新开启事件触发
    Application.EnableEvents = True
End Sub

几个关键注意点： #

• 把代码放在对应的工作表模块里（不是标准模块），右键工作表标签→查看代码，粘贴进去就行。
• 替换targetCell = Me.Range("A1")里的A1为你实际的目标单元格地址。
• 调整Rows("5:10")为你需要隐藏/显示的行范围。
• Excel 2016要确保文件保存为.xlsm格式（启用宏的工作簿），并且打开时启用宏，否则代码不会运行。
• 如果你的公式计算很频繁，这个事件会触发很多次，要是担心性能，可以加个判断：只有目标单元格的值和上一次记录的不一样时才执行隐藏操作，避免重复运行。比如可以在模块顶部声明一个变量存储上一次的值：

Option Compare Text
Private lastValue As String ' 存储上一次的单元格值

Private Sub Worksheet_Calculate()
    Dim targetCell As Range
    Set targetCell = Me.Range("A1")
    
    ' 只有当值变化时才执行操作
    If targetCell.Value <> lastValue Then
        Application.EnableEvents = False
        
        Select Case targetCell.Value
            Case "A"
                Me.Rows("5:10").Hidden = True
            Case "B", "C"
                Me.Rows("5:10").Hidden = False
            Case Else
                Me.Rows("5:10").Hidden = False
        End Select
        
        lastValue = targetCell.Value ' 更新记录的值
        Application.EnableEvents = True
    End If
End Sub

这样就能避免每次计算都跑一遍代码，提升性能。

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