Google Sheets：如何创建动态下拉筛选器隐藏非指定合并列

我太懂你这种花了好几个小时试脚本却卡在循环里的沮丧了——合并单元格的动态取值+列隐藏的逻辑确实容易绕进去。下面给你一套能直接落地的分步方案：

第一步：创建A1的动态下拉列表 #

因为选项来自合并单元格区域C1:ZZZ1，直接用数据验证没法自动提取合并单元格的唯一值，我们可以用VBA先把这些值提取到辅助区域，再给A1做数据验证：

1. 插入一个新工作表（命名为Helper就行），用来存提取到的合并单元格值
2. 按Alt+F11打开VBA编辑器，插入一个新模块，粘贴这段代码来提取值：

Sub ExtractMergeValues()
    Dim ws As Worksheet
    Dim mergeCell As Range
    Dim destCell As Range
    Dim uniqueValues As Collection
    Dim val As Variant
    
    Set ws = ThisWorkbook.Worksheets("你的工作表名称") '替换成你的目标工作表名
    Set uniqueValues = New Collection
    Set destCell = ThisWorkbook.Worksheets("Helper").Range("A1")
    
    '遍历C1到ZZZ1的单元格，提取合并单元格的唯一值
    On Error Resume Next '忽略重复值的报错
    For Each mergeCell In ws.Range("C1:ZZZ1")
        If mergeCell.MergeCells Then
            uniqueValues.Add mergeCell.Value, Key:=CStr(mergeCell.Value)
        End If
    Next mergeCell
    On Error GoTo 0
    
    '把提取到的值写入辅助表
    destCell.Resize(uniqueValues.Count).ClearContents
    For Each val In uniqueValues
        destCell.Value = val
        Set destCell = destCell.Offset(1, 0)
    Next val
End Sub

3. 运行这个宏，Helper表的A列就会得到C1:ZZZ1里所有合并单元格的唯一值（比如你例子里的"Joe Adams"、"Eagle Nest"、"Sabrina"）
4. 回到目标工作表，选中A1，打开「数据验证」：
   • 允许类型选「序列」
   • 来源选Helper!$A$1:$A$X（X是辅助表里值的最后一行，要是想更智能可以设置动态名称，先按这个简单版本来）

第二步：实现选择后自动隐藏列 #

接下来给A1添加事件触发的VBA代码，当选中下拉选项时自动隐藏非对应列：

1. 在VBA编辑器里找到你的目标工作表（左边工程窗口里的工作表名），双击打开它的代码窗口
2. 粘贴这段工作表事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws As Worksheet
    Dim mergeCell As Range
    Dim selectedVal As String
    
    Set ws = Me
    '只处理A1单元格的变化
    If Target.Address = "$A$1" And Target.Value <> "" Then
        selectedVal = Target.Value
        
        '先取消所有列隐藏，避免重复操作导致的残留问题
        ws.Range("C:ZZZ").EntireColumn.Hidden = False
        
        '遍历C1到ZZZ1，隐藏不匹配的合并列
        For Each mergeCell In ws.Range("C1:ZZZ1")
            If mergeCell.MergeCells Then
                '如果当前合并单元格的值不等于选中值，隐藏整个合并区域的列
                If mergeCell.Value <> selectedVal Then
                    mergeCell.MergeArea.EntireColumn.Hidden = True
                End If
            End If
        Next mergeCell
    End If
End Sub

3. 保存文件为「启用宏的工作簿（.xlsm）」，不然宏会失效

额外优化提示 #

• 如果C1:ZZZ1的合并单元格会动态增减，你可以把ExtractMergeValues宏绑定到一个工作表按钮上，点一下就能更新下拉选项
• 要是不想用辅助表，也可以把提取的值存在数组里直接给数据验证，不过辅助表更直观好调试

这样操作下来，A1的下拉选项会自动对应合并单元格的内容，选完之后非对应列会自动隐藏，应该能解决你之前卡循环的问题啦！

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