使用VBA宏实现Excel多工作簿数据按列对齐的问题

原代码的核心问题是先导入wb1的数据确定行顺序，再匹配wb2，这与你要求的「以wb2为基准对齐」逻辑相反。以下是修正后的代码，并附关键改动说明：

修正后的完整代码 #

Sub RetrieveDataAndPaste()
    Dim mainSheet As Worksheet
    Dim filePath As String
    Dim fileName1 As String, fileName2 As String
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, i As Long, j As Long
    Dim matchFound As Boolean
    
    ' 设置主表及文件路径
    Set mainSheet = ThisWorkbook.Sheets("Main")
    filePath = mainSheet.Range("A1").Value
    fileName1 = mainSheet.Range("A2").Value
    fileName2 = mainSheet.Range("A3").Value
    
    ' 清空B-E列旧数据
    mainSheet.Range("B:E").ClearContents
    
    ' 打开工作簿
    Set wb1 = Workbooks.Open(filePath & "\" & fileName1)
    Set ws1 = wb1.Sheets(1)
    Set wb2 = Workbooks.Open(filePath & "\" & fileName2)
    Set ws2 = wb2.Sheets(1)
    
    ' 获取两个表的最后数据行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row
    
    ' 核心逻辑：以wb2的行顺序为基准，逐行匹配wb1的数据
    For i = 2 To lastRow2 ' 遍历wb2的每一行（从第2行开始，假设第1行是表头）
        ' 先写入wb2的当前行数据到主表D、E列
        mainSheet.Cells(i - 1, 4).Value = ws2.Cells(i, 2).Value
        mainSheet.Cells(i - 1, 5).Value = ws2.Cells(i, 20).Value
        
        ' 查找wb1中匹配的行，填充到主表B、C列
        matchFound = False
        For j = 2 To lastRow1
            ' 处理空值匹配：同时为空时视为匹配
            If (ws2.Cells(i, 2).Value = ws1.Cells(j, 2).Value) Or _
               (IsEmpty(ws2.Cells(i, 2)) And IsEmpty(ws1.Cells(j, 2))) Then
                mainSheet.Cells(i - 1, 2).Value = ws1.Cells(j, 2).Value
                mainSheet.Cells(i - 1, 3).Value = ws1.Cells(j, 20).Value
                matchFound = True
                Exit For
            End If
        Next j
        
        ' 若未找到匹配，B、C列留空（默认就是空，可省略此段，仅作说明）
        If Not matchFound Then
            mainSheet.Cells(i - 1, 2).ClearContents
            mainSheet.Cells(i - 1, 3).ClearContents
        End If
    Next i
    
    ' 关闭工作簿
    wb1.Close SaveChanges:=False
    wb2.Close SaveChanges:=False
End Sub

关键改动说明 #

1. 逻辑反转：不再先导入wb1数据，而是先遍历wb2的每一行，直接以wb2的行顺序作为主表的行顺序，确保输出顺序与wb2完全一致。
2. 空值匹配处理：专门判断了空白行的匹配情况（IsEmpty），避免原代码中空白行无法正确匹配的问题。
3. 数据填充顺序：先写入wb2的内容到D、E列，再查找wb1匹配项填充到B、C列，完全贴合你期望的输出格式。
4. 移除冗余逻辑：删除了原代码中「无匹配时插入新行」的逻辑，因为我们完全以wb2的行数为基准，不需要额外插入行。

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