如何通过引用Sheet1单元格值控制Sheet2指定行的隐藏？

要实现「当Sheet1的A1等于3时隐藏Sheet2的20-30行」的需求，Excel内置公式无法直接完成，需要借助VBA宏来实现，以下是两种可行方案：

方案一：自动触发（监控Sheet1的A1变化） #

这种方案会在Sheet1的A1单元格内容修改时自动执行判断，无需手动操作：

1. 打开目标工作簿，按下Alt + F11打开VBA编辑器
2. 在左侧「工程资源管理器」中找到并双击Sheet1（对应的工作表），打开其代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅对A1单元格的变化做出响应
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Dim ws2 As Worksheet
        Set ws2 = ThisWorkbook.Worksheets("Sheet2")
        
        ' 根据A1的值控制行的显示/隐藏
        ws2.Rows("20:30").Hidden = (Me.Range("A1").Value = 3)
    End If
End Sub

代码说明 #

• Worksheet_Change是工作表的内置事件，当Sheet1的单元格内容变化时触发
• Intersect(Target, Me.Range("A1"))确保只处理A1单元格的修改
• ws2.Rows("20:30").Hidden = (Me.Range("A1").Value = 3)是简化写法：当A1等于3时隐藏行，否则显示行

方案二：手动触发（按需执行） #

如果不需要自动触发，也可以写一个独立宏，手动运行：

1. 打开VBA编辑器，右键点击工作簿名称 → 插入 → 模块
2. 在模块中粘贴以下代码：

Sub ToggleSheet2Rows()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 判断并控制行的可见性
    If ws1.Range("A1").Value = 3 Then
        ws2.Rows("20:30").Hidden = True
    Else
        ws2.Rows("20:30").Hidden = False
    End If
End Sub

使用方法 #

• 按下F5在VBA编辑器中直接运行
• 或者回到Excel界面，点击「开发工具」→「宏」，选择ToggleSheet2Rows执行
• 也可以将宏添加到快速访问工具栏，一键触发

注意事项 #

• 保存工作簿时需选择.xlsm格式（启用宏的工作簿），否则宏会丢失
• 如果你的工作表名称不是Sheet1或Sheet2，请将代码中的名称替换为实际工作表名
• 首次打开工作簿时，需启用宏才能让代码生效

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