如何用Excel下拉列表跨工作表控制行的显示与隐藏？

第一步：设置C4单元格的下拉列表 #

选中Project&Site_Details工作表的C4单元格，按以下步骤操作：

• 切换到「数据」选项卡 → 点击「数据验证」
• 在弹出窗口中，「允许」选择「序列」，「来源」输入：Server Migration,Data Type,Other（逗号为英文半角）
• 确定后C4就会出现包含指定选项的下拉菜单

第二步：简洁版VBA代码实现联动 #

把以下代码粘贴到Project&Site_Details工作表的代码模块中（右键工作表标签→查看代码，直接粘贴）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 只监听C4单元格的变化，无关操作直接跳过
    If Target.Address <> "$C$4" Then Exit Sub
    
    ' 定义需要处理的三个工作表，把「第三个工作表名称」替换成实际表名
    Dim checkSheets As Variant
    checkSheets = Array("Pre_Checklist", "Post_Checklist", "第三个工作表名称")
    
    ' 禁用事件避免循环触发，关闭屏幕刷新提升执行流畅度
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Dim ws As Worksheet
    Dim selectedOpt As String
    selectedOpt = Target.Value
    
    ' 遍历每个目标工作表，统一处理行的隐藏/显示
    For Each ws In ThisWorkbook.Worksheets(checkSheets)
        ' 先重置所有需要控制的行，避免残留状态
        ws.Rows("4:5,10:11").Hidden = False
        
        ' 根据选中选项设置对应行的状态
        Select Case selectedOpt
            Case "Server Migration"
                ws.Rows("4:5").Hidden = True
            Case "Data Type"
                ws.Rows("10:11").Hidden = True ' 可根据需求替换成该选项要隐藏的行
            Case "Other"
                ' 这里添加Other选项对应的隐藏行规则，比如 ws.Rows("XX:XX").Hidden = True
        End Select
    Next ws
    
    ' 恢复事件和屏幕刷新
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

代码优势 #

1. 只监听C4的变化，无关操作直接跳过，提升执行效率
2. 用数组批量处理三个工作表，避免重复写三次相同逻辑
3. Select Case替代多层If判断，逻辑清晰，后续新增选项也容易扩展
4. 先重置所有控制行的显示状态，再设置隐藏，避免切换选项时出现状态混乱
5. 加入事件禁用和屏幕刷新关闭，防止代码执行时出现闪烁或循环触发问题

之前代码的问题分析 #

1. 第一段代码要求输入宏名称：因为你把Worksheet_Change事件代码放在了标准模块（比如Module1）里，这类工作表事件必须放在对应工作表的代码模块中，Excel才会自动识别它是事件触发代码，否则会被当成普通宏，运行时就会要求输入宏名称。

2. 第二段代码的不足：

   • 只处理了Sheets(3)，没有覆盖需求里的三个工作表
   • 判断条件里的Add-On和需求里的Data Type/Other不匹配
   • 重复写Hidden=True/False，代码冗余，维护起来麻烦

内容的提问来源于stack exchange，提问作者Evandro Goulart Gomes