通过下拉框动态切换表头（含Merge and Center列名）并填充对应数据

一、创建动态更新的表头下拉框 #

先把所有主要表头（ListA、ListB及未来新增项）集中存放在单独工作表（比如Sheet2）的A列，新增表头时直接追加到该列即可。

选中需要放置下拉框的指定单元格（比如Sheet1的B1），按以下步骤设置：

1. 点击「数据」选项卡 → 「数据验证」
2. 在弹出窗口中选择「序列」类型
3. 来源栏输入动态引用公式：=OFFSET(Sheet2!$A$1,0,0,COUNTA(Sheet2!$A:$A),1)
4. 勾选「提供下拉箭头」，点击确定

这个下拉框会自动同步Sheet2A列的所有表头，新增表头无需手动更新下拉选项。

二、自动匹配并填充对应数据 #

方法1：用函数实现（无需VBA） #

假设原始数据集在Sheet3，第一行为表头，数据从第二行开始：

• 若要将合并居中的标题与下拉框联动，直接把合并单元格（比如Sheet1的A1:Z1）的内容设为=$B$1，选中下拉选项后标题自动更新
• 在数据起始单元格（比如Sheet1的B2）输入公式：

  =XLOOKUP($B$1,Sheet3!$1:$1,Sheet3!$2:$1000,"无数据",0)
  

  下拉填充公式到需要的行，即可自动匹配选中表头对应的整列数据。

方法2：用VBA实现更灵活的联动（支持自动清空旧数据、格式同步） #

右键目标工作表（Sheet1）标签 → 「查看代码」，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 指定下拉框所在单元格地址，可根据实际修改
    If Target.Address <> "$B$1" Then Exit Sub
    
    Dim headerName As String
    headerName = Target.Value
    If headerName = "" Then Exit Sub
    
    ' 清空旧数据区域（可根据实际调整范围）
    Me.Range("B2:Z1000").ClearContents
    
    ' 查找目标表头在原始数据中的列位
    Dim headerCol As Integer
    On Error Resume Next
    headerCol = Sheets("Sheet3").Rows(1).Find(What:=headerName, LookIn:=xlValues, LookAt:=xlWhole).Column
    On Error GoTo 0
    
    If headerCol = 0 Then
        Me.Range("B2").Value = "未找到对应表头数据"
        Exit Sub
    End If
    
    ' 复制对应列数据到目标区域
    Sheets("Sheet3").Columns(headerCol).Copy Destination:=Me.Range("B2")
    
    ' 更新合并居中的标题栏
    With Me.Range("A1:Z1")
        .Merge
        .Value = headerName
        .HorizontalAlignment = xlCenter
    End With
End Sub

保存后，切换下拉框选项时会自动完成：清空旧数据、匹配复制对应列数据、更新合并居中的表头名称。

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