Excel技术问询：基于A、B列匹配值对齐多列并同步移动B、C列

以下是实现需求的VBA宏代码，可将B、C列的匹配值对应到A列相同值的行，不匹配的行自动清空B、C列：

Sub AlignColumnsBCToA()
    Dim ws As Worksheet
    Dim dataDict As Object
    Dim lastRowA As Long, lastRowB As Long
    Dim i As Long
    
    ' 指定操作的工作表，根据实际修改Sheet名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set dataDict = CreateObject("Scripting.Dictionary")
    
    ' 获取B列最后一行行号
    lastRowB = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 存储B列非空值与对应C列值的映射关系
    For i = 1 To lastRowB
        If ws.Cells(i, "B").Value <> "" Then
            ' 若B列存在重复值，字典会保留最后一个对应C列值，需处理重复可调整逻辑
            dataDict(ws.Cells(i, "B").Value) = ws.Cells(i, "C").Value
        End If
    Next i
    
    ' 获取A列最后一行行号
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列，匹配并填充B、C列
    For i = 1 To lastRowA
        If dataDict.Exists(ws.Cells(i, "A").Value) Then
            ws.Cells(i, "B").Value = ws.Cells(i, "A").Value
            ws.Cells(i, "C").Value = dataDict(ws.Cells(i, "A").Value)
        Else
            ws.Cells(i, "B").ClearContents
            ws.Cells(i, "C").ClearContents
        End If
    Next i
    
    Set dataDict = Nothing
    MsgBox "对齐完成！", vbInformation
End Sub

代码说明 #

• 利用字典存储B、C列的对应关系，确保匹配操作高效执行
• 遍历A列时，根据字典内容自动填充匹配的B、C列值，无匹配项则清空对应单元格
• 若B列存在重复值，默认保留最后一个值对应的C列内容，可根据需求修改重复值处理逻辑

使用步骤 #

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧工作簿名称，选择「插入」→「模块」
3. 将上述代码粘贴到新建模块中，修改代码内的工作表名称（如非Sheet1）
4. 按下F5运行宏，或返回Excel界面通过「开发工具」→「宏」执行操作

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