如何基于Sheet1单元格内容隐藏Sheet2中的行？

问题根源 #

• 原代码绑定的是当前工作表的Worksheet_Change事件，仅监听当前表的单元格修改，而非Sheet1的D4
• 未明确指定要操作的目标工作表（Sheet2），默认操作当前激活表的行
• Worksheet_Change仅响应手动输入的单元格变化，公式计算导致的单元格值变更不会触发该事件

解决方案1：监听Sheet1手动修改（适合D4为手动输入） #

将代码写入Sheet1的代码模块（右键Sheet1标签→查看代码），明确指定操作Sheet2的行：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的是Sheet1的D4时执行
    If Not Application.Intersect(Me.Range("D4"), Target) Is Nothing Then
        ' 关闭屏幕刷新提升效率，避免闪烁
        Application.ScreenUpdating = False
        
        With ThisWorkbook.Worksheets("Sheet2")
            Select Case Me.Range("D4").Value
                Case "USA":
                    .Rows("13:19").EntireRow.Hidden = True
                    .Rows("5:12").EntireRow.Hidden = False
                Case "CANADA":
                    .Rows("13:19").EntireRow.Hidden = False
                    .Rows("5:12").EntireRow.Hidden = True
                Case "":
                    .Rows("13:19").EntireRow.Hidden = False
                    .Rows("5:12").EntireRow.Hidden = False
            End Select
        End With
        
        Application.ScreenUpdating = True
    End If
End Sub

解决方案2：支持Sheet1 D4为公式结果 #

如果Sheet1的D4是公式计算得到的值，Worksheet_Change不会触发，需改用Worksheet_Calculate事件，同时添加变量记录上一次的值避免重复执行：

' 模块级变量，记录上一次D4的值
Private lastD4Value As String

Private Sub Worksheet_Calculate()
    Dim currentValue As String
    currentValue = Me.Range("D4").Value
    
    ' 仅当值发生变化时执行
    If currentValue <> lastD4Value Then
        Application.ScreenUpdating = False
        
        With ThisWorkbook.Worksheets("Sheet2")
            Select Case currentValue
                Case "USA":
                    .Rows("13:19").EntireRow.Hidden = True
                    .Rows("5:12").EntireRow.Hidden = False
                Case "CANADA":
                    .Rows("13:19").EntireRow.Hidden = False
                    .Rows("5:12").EntireRow.Hidden = True
                Case "":
                    .Rows("13:19").EntireRow.Hidden = False
                    .Rows("5:12").EntireRow.Hidden = False
            End Select
        End With
        
        ' 更新记录的上一次值
        lastD4Value = currentValue
        Application.ScreenUpdating = True
    End If
End Sub

' 初始化lastD4Value，避免打开文件时触发不必要的操作
Private Sub Worksheet_Activate()
    lastD4Value = Me.Range("D4").Value
End Sub

关键优化点 #

• 用Me.Range指代当前Sheet1的单元格，避免跨表引用混乱
• 用With ThisWorkbook.Worksheets("Sheet2")明确操作目标工作表，替代不可靠的ActiveSheet
• 加入Application.ScreenUpdating = False/True减少屏幕闪烁，提升运行效率
• 公式场景下用模块级变量记录历史值，避免每次计算都重复执行行隐藏操作

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