如何将可变数量工作表的指定列按ID合并至主工作表？

针对你遇到的「主表+可变副表，按唯一ID提取固定列名数据」的问题，以下是几个实用的解决方向：

方案1：Power Query（推荐，适配可变表数量） #

这是最省心的方案，不用写复杂公式，还能自动适配新增/删除的副表：

1. 点击「数据」选项卡 → 「获取数据」→ 「自文件」→ 「自工作簿」，选中当前Excel文件，在弹出的导入窗口选择「仅创建连接」，确定。
2. 打开「Power Query编辑器」（数据选项卡→启动Power Query编辑器），在左侧「查询」面板找到刚才创建的工作簿连接，双击打开，此时会列出所有工作表。
3. 筛选掉主工作表（比如主表叫「Main」），只保留所有副表；然后添加自定义列，输入公式提取需要的3个固定列：

   Table.SelectColumns([Data], {"ID", "列名1", "列名2", "列名3"})
   

   （把括号里的列名换成你实际需要的列名）
4. 点击「转换」选项卡 → 「合并查询」→ 「将查询作为新查询合并」，选择「追加查询」，把所有副表的数据合并成一张表。
5. 回到主表，用「数据」→「现有连接」，把合并后的副表数据加载到新工作表，再用VLOOKUP/XLOOKUP把数据匹配到主表对应的ID行；或者直接在Power Query里完成和主表的合并后再加载。

方案2：Excel 365/2021 动态数组函数 #

如果你的Excel版本支持动态数组，可以用BYROW+XLOOKUP+INDIRECT组合，先把所有副表的名称列在一个空白区域（比如Z列，Z1=副表1，Z2=副表2...），然后在主表需要提取数据的单元格输入：

=BYROW(A2:A100, LAMBDA(id, 
  XLOOKUP(id, INDIRECT(Z1&"!A:A"), INDIRECT(Z1&"!"&MATCH("目标列名", INDIRECT(Z1&"!1:1"),0)&":"&MATCH("目标列名", INDIRECT(Z1&"!1:1"),0)), "", 0)
))

如果需要合并多个副表的同ID数据（比如一个ID在多个副表都有数据），可以用TEXTJOIN拼接：

=BYROW(A2:A100, LAMBDA(id, 
  TEXTJOIN(", ", TRUE, 
    BYCOL(Z1:Z10, LAMBDA(sheet, 
      XLOOKUP(id, INDIRECT(sheet&"!A:A"), INDIRECT(sheet&"!"&MATCH("目标列名", INDIRECT(sheet&"!1:1"),0)&":"&MATCH("目标列名", INDIRECT(sheet&"!1:1"),0)), "", 0)
    ))
  )
))

（注意把Z1:Z10换成你实际的副表名称区域，目标列名换成需要提取的列）

方案3：VBA宏（适合批量自动化） #

如果需要一键执行，可以写个简单的VBA宏：

Sub MergeSubSheetsToMain()
    Dim mainSheet As Worksheet
    Dim subSheet As Worksheet
    Dim mainLastRow As Long, subLastRow As Long
    Dim idCol As Integer, targetCol1 As Integer, targetCol2 As Integer, targetCol3 As Integer
    Dim rng As Range, foundCell As Range
    
    Set mainSheet = ThisWorkbook.Worksheets("Main") ' 替换成你的主表名称
    mainLastRow = mainSheet.Cells(mainSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历所有副表
    For Each subSheet In ThisWorkbook.Worksheets
        If subSheet.Name <> mainSheet.Name Then ' 跳过主表
            ' 找到副表中对应列的位置
            idCol = subSheet.Rows(1).Find("ID").Column
            targetCol1 = subSheet.Rows(1).Find("列名1").Column
            targetCol2 = subSheet.Rows(1).Find("列名2").Column
            targetCol3 = subSheet.Rows(1).Find("列名3").Column
            
            subLastRow = subSheet.Cells(subSheet.Rows.Count, idCol).End(xlUp).Row
            
            ' 遍历主表ID，匹配副表数据
            For Each rng In mainSheet.Range("A2:A" & mainLastRow)
                Set foundCell = subSheet.Range(subSheet.Cells(2, idCol), subSheet.Cells(subLastRow, idCol)).Find(rng.Value, LookIn:=xlValues, LookAt:=xlWhole)
                If Not foundCell Is Nothing Then
                    ' 把数据写入主表对应列（比如主表B、C、D列）
                    mainSheet.Cells(rng.Row, "B").Value = foundCell.Offset(0, targetCol1 - idCol).Value
                    mainSheet.Cells(rng.Row, "C").Value = foundCell.Offset(0, targetCol2 - idCol).Value
                    mainSheet.Cells(rng.Row, "D").Value = foundCell.Offset(0, targetCol3 - idCol).Value
                End If
            Next rng
        End If
    Next subSheet
End Sub

使用时按Alt+F11打开VBA编辑器，插入模块，粘贴代码，替换主表名称和列名，运行即可。

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