如何从已关闭工作簿提取A、B列并合并，避免重复打开？

嘿，我完全懂你不想重复打开工作簿的痛点——反复折腾不仅慢，还容易出各种小问题。这里有几个可行的解决思路，帮你一次性搞定A、B列的提取与合并：

思路1：用VBA一次性读取两列数据到数组后合并 #

这种方法全程不需要显式打开源工作簿，借助ExecuteExcel4Macro或后台调用GetObject读取数据，把A、B列数据存入数组后再合并写入目标位置，效率拉满。

举个实用的VBA代码示例：

Sub ExtractCombineColumns()
    Dim sourceFilePath As String
    Dim sourceSheetName As String
    Dim lastRow As Long
    Dim colAData As Variant, colBData As Variant
    Dim combinedData As Variant
    Dim i As Long
    
    ' 替换成你的源文件路径和工作表名
    sourceFilePath = "D:\Documents\SourceBook.xlsx"
    sourceSheetName = "DataSheet"
    
    ' 获取A列最后一行有数据的行号（比COUNTA更适配含空白行的场景）
    lastRow = ExecuteExcel4Macro("MATCH(""*"",'" & sourceFilePath & "'!" & sourceSheetName & "!A:A,-1)")
    
    ' 一次性读取A列和B列的所有数据
    colAData = ExecuteExcel4Macro("'" & sourceFilePath & "'!" & sourceSheetName & "!A1:A" & lastRow)
    colBData = ExecuteExcel4Macro("'" & sourceFilePath & "'!" & sourceSheetName & "!B1:B" & lastRow)
    
    ' 初始化合并后的二维数组
    ReDim combinedData(1 To lastRow, 1 To 2)
    For i = 1 To lastRow
        combinedData(i, 1) = colAData(i)
        combinedData(i, 2) = colBData(i)
    Next i
    
    ' 将合并后的数据写入当前工作簿的目标工作表（示例为Sheet2的A:B列）
    ThisWorkbook.Sheets("Sheet2").Range("A1:B" & lastRow).Value = combinedData
End Sub

小贴士：如果用GetObject，它会在后台静默打开源工作簿（不显示窗口），你可以直接读取整个A:B列范围，再一次性复制到目标位置，同样只触发一次打开操作。

思路2：用Power Query（获取与转换数据）实现无代码合并 #

如果你不想写代码，Power Query是绝佳选择——它不会打开源工作簿，操作可视化，还支持后续一键刷新数据：

• 打开你的目标工作簿，点击「数据」选项卡 → 「获取数据」→ 「从文件」→ 「从工作簿」
• 选中源文件后，在导航器里勾选目标工作表，点击「编辑」进入Power Query编辑器
• 在编辑器里，只保留A列和B列（右键其他列选择「删除」），如果需要调整格式，直接点击「关闭并上载」，选择加载到目标工作表即可。

后续源数据更新时，只需点击「刷新」就能同步最新内容，完全不用重复操作源文件。

关键注意事项 #

• 不管用哪种方法，一次性读取所需的所有数据范围，不要分多次读取单个单元格，避免重复操作
• 尽量避免用INDIRECT函数——它在源工作簿关闭时无法正常读取数据，还会强制打开工作簿，违背你的需求
• 若源文件路径含空格，记得在路径前后加单引号（比如代码里的'" & sourceFilePath & "'），避免语法报错

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