如何用Excel VBA删除B列和C列值均重复的行？

需求说明 #

你需要删除Excel中B列和C列同时重复的行，只保留每组重复组合的第一行。举个例子：

原始数据：

B   C
XYZ Y
XYZ Y
ABC Y
XYZ N

处理后预期结果：

B   C
XYZ Y
ABC Y
XYZ N

VBA代码实现 #

直接把下面的代码复制到Excel的VBA编辑器里（按Alt+F11快速打开），运行就能完成需求：

Sub RemoveDuplicateRowsByBC()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim uniquePairs As Object
    
    ' 指定要处理的工作表（这里用当前激活的表，你也可以改成Sheet1这类明确名称）
    Set ws = ActiveSheet
    ' 创建字典存储已出现的B+C组合
    Set uniquePairs = CreateObject("Scripting.Dictionary")
    
    ' 获取B列最后一行数据的行号（假设表头在第1行）
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从下往上遍历行，避免删除行后索引混乱
    For i = lastRow To 2 Step -1
        ' 拼接B、C列值作为唯一标识，用|分隔避免组合冲突
        Dim pairKey As String
        pairKey = ws.Cells(i, "B").Value & "|" & ws.Cells(i, "C").Value
        
        ' 如果字典里已有该组合，删除当前行；否则把组合加入字典
        If uniquePairs.Exists(pairKey) Then
            ws.Rows(i).Delete
        Else
            uniquePairs.Add pairKey, i
        End If
    Next i
    
    MsgBox "重复行删除完成！", vbInformation
End Sub

代码细节解释 #

• 字典（Scripting.Dictionary）：用来记录已经出现过的B+C组合，用|做分隔符是为了避免不同组合拼接后撞车（比如"XY"+"ZY"和"XYZ"+"Y"会变成同一个字符串，加分隔符就能区分）。
• 从下往上遍历：如果从上往下删行，后面的行会往前移位，导致部分行被跳过；从下往上遍历就不会有这个问题。
• 表头兼容：默认表头在第1行，所以遍历从第2行开始。如果你的数据起始行不同，把For i = lastRow To 2 Step -1里的2改成你的数据起始行就行。

使用步骤 #

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器。
2. 右键点击左侧的工作表名称（比如Sheet1），选择「插入」→「模块」。
3. 把上面的代码粘贴到模块窗口里。
4. 按F5运行代码，或者回到Excel界面按Alt+F8，选择RemoveDuplicateRowsByBC执行。

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