你的代码未生效存在几个关键问题，以下是针对性的修正方案：

1. 核心语法错误 #

代码中使用.Range("C24:C43")时省略了父对象（当前工作表），VBA会直接跳过执行，这是代码无反应的主要原因，需补充Me（代表当前工作表）作为前置对象。

2. 未限定触发范围 #

当前代码会在任何单元格修改时运行，但你仅需在F3单元格被修改时执行逻辑，同时要避免事件循环触发（代码操作工作表时重复触发Change事件）。

3. 冗余逻辑与遗漏需求 #

你分两次循环处理行的隐藏/取消隐藏，可合并为一次循环简化逻辑；另外你提到的第二个汇总表（47行起始）的行隐藏需求也需补充。

修正后的完整代码 #

将以下代码粘贴到汇总表的工作表代码模块（右键工作表标签→查看代码，粘贴到打开的窗口中）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅在F3单元格被修改时执行逻辑
    If Not Intersect(Target, Me.Range("F3")) Is Nothing Then
        ' 关闭事件触发，防止循环调用
        Application.EnableEvents = False
        
        Dim c As Range
        ' 处理第一个汇总表的行（24-43行）
        For Each c In Me.Range("C24:C43")
            If Not VBA.IsError(c.Value) Then
                ' 空值隐藏行，非空则取消隐藏
                c.EntireRow.Hidden = (c.Value = "")
            End If
        Next c
        
        ' 处理第二个汇总表的行（47-66行）
        For Each c In Me.Range("C47:C66")
            If Not VBA.IsError(c.Value) Then
                c.EntireRow.Hidden = (c.Value = "")
            End If
        Next c
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键说明 #

• 工作表代码模块绑定：必须将代码放在对应汇总表的代码模块中，事件才能正确响应当前工作表的修改。
• Intersect判断：精准限定仅F3单元格修改时执行逻辑，避免无意义的代码运行。
• 事件开关：Application.EnableEvents = False用于防止代码操作工作表时重复触发Change事件，避免死循环。
• 简化逻辑：c.EntireRow.Hidden = (c.Value = "")将两次判断合并为一行，高效实现空值隐藏、非空显示的需求。

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