无法实现脚本并排合并数据，Excel VBA新手请求技术协助

嘿，作为VBA新手遇到这种细节卡壳太正常了！我来帮你捋捋问题所在，以及怎么调整代码实现你要的并排合并效果～

问题根源分析 #

你原本的代码应该是固定把数据写入指定列（比如第一次写A列、B列），当你把代码里的列标识从"A"改成"B"再运行时，新数据会直接覆盖B列已有的内容，或者和之前的逻辑冲突，自然没法实现“并排新增列”的效果。核心问题是：你的代码没有动态定位「主表当前的最后一列」，而是硬编码了目标列。

解决方案：动态定位目标列 #

我们需要修改代码逻辑，让每次运行时自动找到主表的最后一列，然后从下一列开始写入新数据。下面给你两种常见场景的调整方案：

场景1：每次运行把所有工作簿的指定单元格（如A5）写入新的一列

比如第一次运行把所有A5写到A列，第二次运行把所有A5写到B列，以此类推：

Sub MergeToNewColumn()
    Dim wb As Workbook
    Dim mainWS As Worksheet
    Dim lastCol As Long
    Dim targetCol As Long
    Dim currentRow As Long
    
    ' 绑定主工作表（改成你的主表名称）
    Set mainWS = ThisWorkbook.Sheets("主表")
    
    ' 动态找到主表最后一列，下一列作为本次的目标列
    lastCol = mainWS.Cells(1, mainWS.Columns.Count).End(xlToLeft).Column
    targetCol = lastCol + 1
    ' 如果主表是空的，默认从A列开始
    If lastCol = 1 And mainWS.Cells(1, 1).Value = "" Then targetCol = 1
    
    ' 初始化写入的起始行（假设表头在第1行，数据从第2行开始）
    currentRow = 2
    
    ' 遍历所有打开的工作簿（排除主工作簿本身）
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            ' 提取目标单元格数据写入目标列的当前行
            mainWS.Cells(currentRow, targetCol).Value = wb.Sheets(1).Range("A5").Value
            ' 如果还要提取其他单元格（比如A13），可以写到同一行的下一列：
            ' mainWS.Cells(currentRow, targetCol + 1).Value = wb.Sheets(1).Range("A13").Value
            currentRow = currentRow + 1
        End If
    Next wb
    
    MsgBox "数据已合并到第" & targetCol & "列！"
End Sub

场景2：每个工作簿的多个指定单元格（如A5、A13）对应主表的一行两列

如果是要把每个工作簿的A5、A13分别写到主表同一行的不同列，且每次运行新增一组列：

Sub MergeRowByRowSideBySide()
    Dim wb As Workbook
    Dim mainWS As Worksheet
    Dim lastCol As Long
    Dim startCol As Long
    Dim currentRow As Long
    
    Set mainWS = ThisWorkbook.Sheets("主表")
    lastCol = mainWS.Cells(1, mainWS.Columns.Count).End(xlToLeft).Column
    startCol = lastCol + 1
    If lastCol = 1 And mainWS.Cells(1, 1).Value = "" Then startCol = 1
    
    currentRow = 2
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            ' A5写到当前行的起始列
            mainWS.Cells(currentRow, startCol).Value = wb.Sheets(1).Range("A5").Value
            ' A13写到当前行的下一列
            mainWS.Cells(currentRow, startCol + 1).Value = wb.Sheets(1).Range("A13").Value
            currentRow = currentRow + 1
        End If
    Next wb
    
    MsgBox "数据并排合并完成！"
End Sub

新手避坑提示 #

• 记得把代码里的"主表"改成你实际的工作表名称
• 如果是通过弹窗选择文件合并（不是遍历已打开的工作簿），可以把For Each wb In Workbooks换成GetOpenFilename的循环逻辑
• 运行前最好备份主表数据，避免误覆盖

如果还是没解决问题，可以把你原来的代码贴出来，我帮你精准调整～

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