Excel单表两列及跨工作表数据排序匹配：不匹配插空白对齐求助

第一步：统一数据大小写（消除大小写误判） #

• 新增两个辅助列（比如C列和D列）
• 在C2单元格输入公式：=UPPER(A2)，下拉填充到A列数据末尾
• 在D2单元格输入公式：=UPPER(B2)，下拉填充到B列数据末尾
  （将两列数据统一转为大写，避免大小写差异导致的匹配错误）

第二步：用VBA代码自动对齐数据 #

手动插入空白效率低易出错，直接用以下VBA代码实现自动匹配插入：

1. 按Alt + F11打开VBA编辑器
2. 右键左侧的工作簿名称，选择「插入」→「模块」
3. 粘贴下方代码后按F5运行：

Sub AlignColumns()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowB As Long
    Dim i As Long, j As Long
    
    Set ws = ActiveSheet ' 操作当前激活的工作表
    lastRowA = ws.Cells(ws.Rows.Count, "C").End(xlUp).Row ' 辅助列C的最后一行
    lastRowB = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row ' 辅助列D的最后一行
    
    i = 2 ' 从第2行开始（假设第1行是表头）
    j = 2
    
    Do While i <= lastRowA And j <= lastRowB
        ' 比对辅助列内容
        If ws.Cells(i, "C").Value = ws.Cells(j, "D").Value Then
            ' 匹配成功，同时向下移动指针
            i = i + 1
            j = j + 1
        Else
            ' 尝试用A列下一个数据匹配当前B列
            If ws.Cells(i + 1, "C").Value = ws.Cells(j, "D").Value Then
                ' 在B列当前行插入空白
                ws.Cells(j, "B").Insert Shift:=xlDown
                j = j + 1
                lastRowB = lastRowB + 1 ' 更新B列最后一行计数
                ws.Cells(j, "D").Insert Shift:=xlDown ' 同步更新辅助列D
            ' 尝试用B列下一个数据匹配当前A列
            ElseIf ws.Cells(i, "C").Value = ws.Cells(j + 1, "D").Value Then
                ' 在A列当前行插入空白
                ws.Cells(i, "A").Insert Shift:=xlDown
                i = i + 1
                lastRowA = lastRowA + 1 ' 更新A列最后一行计数
                ws.Cells(i, "C").Insert Shift:=xlDown ' 同步更新辅助列C
            Else
                ' 双方下一个都不匹配，同时向下移动指针（可根据实际需求调整）
                i = i + 1
                j = j + 1
            End If
        End If
    Loop
    
    ' 处理剩余未匹配的数据
    ' A列还有剩余时，在B列对应位置插入空白
    Do While i <= lastRowA
        ws.Cells(j, "B").Insert Shift:=xlDown
        j = j + 1
        ws.Cells(j, "D").Insert Shift:=xlDown
        i = i + 1
    Loop
    ' B列还有剩余时，在A列对应位置插入空白
    Do While j <= lastRowB
        ws.Cells(i, "A").Insert Shift:=xlDown
        i = i + 1
        ws.Cells(i, "C").Insert Shift:=xlDown
        j = j + 1
    Loop
    
    MsgBox "数据对齐完成！"
End Sub

代码说明 #

• 基于辅助列的大写内容比对，彻底避免大小写干扰
• 优先判断哪一列的下一个数据能匹配，精准插入空白
• 自动处理剩余未匹配的数据，补全对应空白
• 运行前建议先备份数据，防止误操作

第三步：清理辅助列（可选） #

数据对齐完成后，若不需要辅助列C和D，直接删除即可。

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