多Excel文件指定列导入合并问题：列位置不同无法用Power Query

方法1：Power Query（推荐，按列名提取） #

你之前的误解可以纠正——Power Query完全支持按列名而非列位置提取数据，步骤如下：

• 打开空白Excel文件，点击「数据」选项卡 → 获取数据 → 从文件 → 从文件夹
• 选择存放所有目标Excel文件的文件夹，点击「确定」
• 在弹出的对话框中，点击「转换数据」进入Power Query编辑器
• 添加自定义列，输入公式：

  Table.SelectColumns(Excel.CurrentWorkbook(){[Name="你的工作表名"]}[Content], {"目标列名1", "目标列名2", "目标列名3"})
  

  • 替换"你的工作表名"为实际工作表名称（若所有文件表名不一致，可改用Table.First(Excel.CurrentWorkbook())[Content]自动取第一个工作表）
  • 替换{"目标列名1",...}为你需要提取的列名列表
• 展开自定义列，删除无需保留的原始列
• 点击「关闭并上载」，即可生成合并后的表格

方法2：VBA宏脚本 #

若习惯用VBA批量处理，可使用以下脚本：

Sub MergeSpecifiedColumns()
    Dim fd As FileDialog
    Dim selectedPath As String
    Dim fileName As String
    Dim wbSource As Workbook
    Dim wsDest As Worksheet
    Dim targetColumns As Variant
    Dim col As Variant
    Dim lastRowDest As Long
    Dim lastRowSource As Long
    Dim sourceCol As Range
    
    ' 设置需要提取的列名
    targetColumns = Array("目标列名1", "目标列名2", "目标列名3")
    
    ' 创建合并结果工作表
    Set wsDest = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    wsDest.Name = "合并结果"
    
    ' 写入表头
    For i = LBound(targetColumns) To UBound(targetColumns)
        wsDest.Cells(1, i + 1).Value = targetColumns(i)
    Next i
    
    ' 选择文件所在文件夹
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    If fd.Show = -1 Then
        selectedPath = fd.SelectedItems(1) & "\"
        fileName = Dir(selectedPath & "*.xlsx")
        
        Do While fileName <> ""
            Set wbSource = Workbooks.Open(selectedPath & fileName, ReadOnly:=True)
            
            ' 遍历目标列名，匹配并复制数据
            For Each col In targetColumns
                On Error Resume Next
                Set sourceCol = wbSource.Sheets(1).Rows(1).Find(col, LookIn:=xlValues, LookAt:=xlWhole)
                On Error GoTo 0
                
                If Not sourceCol Is Nothing Then
                    lastRowSource = wbSource.Sheets(1).Cells(Rows.Count, sourceCol.Column).End(xlUp).Row
                    lastRowDest = wsDest.Cells(Rows.Count, wsDest.Cells(1, Columns.Count).End(xlToLeft).Column).End(xlUp).Row
                    
                    ' 复制数据（跳过表头）
                    wbSource.Sheets(1).Range(sourceCol.Offset(1), wbSource.Sheets(1).Cells(lastRowSource, sourceCol.Column)).Copy _
                        wsDest.Cells(lastRowDest + 1, wsDest.Rows(1).Find(col, LookIn:=xlValues, LookAt:=xlWhole).Column)
                End If
            Next col
            
            wbSource.Close SaveChanges:=False
            fileName = Dir
        Loop
    End If
    
    MsgBox "合并完成！"
End Sub

使用说明：

• 打开空白Excel，按Alt+F11打开VBA编辑器
• 插入模块，粘贴上述代码
• 修改targetColumns = Array("目标列名1",...)为你需要的列名
• 运行宏，选择存放Excel文件的文件夹即可

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