Excel VBA需求：清除A列与D列重复行的D列后续值

原代码存在的问题 #

• 条件判断逻辑错误：误将B列当作D列进行判断，且逻辑表达式写法错误，未正确识别A列与D列的组合重复。
• 仅对比相邻行：无法识别非相邻的重复组合（如示例中第5行和第1行的A=1、D=1组合）。
• 循环方向不合理：从上到下遍历会导致已处理的行影响后续判断，容易遗漏重复项。

修正后的代码 #

Sub clearDups()
    Dim i As Long
    Dim Lastrow As Long
    Dim comboDict As Object
    Set comboDict = CreateObject("Scripting.Dictionary")
    
    ' 获取A列最后一行行号
    Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 从最后一行向上遍历，避免处理过程中影响未遍历的行
    For i = Lastrow To 1 Step -1
        ' 仅当D列有值时才检查（避免重复处理已清除的行）
        If Not IsEmpty(Cells(i, "D").Value) Then
            ' 生成A列+D列的组合键，用分隔符避免不同值拼接混淆
            Dim comboKey As String
            comboKey = Cells(i, "A").Value & "|" & Cells(i, "D").Value
            
            ' 如果组合已存在，清除当前行D列内容
            If comboDict.Exists(comboKey) Then
                Cells(i, "D").ClearContents
            Else
                ' 组合不存在，添加到字典中记录
                comboDict.Add comboKey, True
            End If
        End If
    Next i
    
    ' 释放字典对象
    Set comboDict = Nothing
End Sub

代码逻辑说明 #

1. 字典记录唯一组合：通过Scripting.Dictionary存储已出现的A列与D列的组合值，确保每个组合仅保留首次出现的行。
2. 反向遍历行：从最后一行向上遍历，避免因清除D列内容导致后续行的判断出现偏差。
3. 判断D列非空：跳过已经被清除内容的行，避免无效重复处理。

示例验证 #

输入数据：

A B C D
1 1 1 1
1 1 1 1
1 2 2 2
3 3 3 3  
1 1 1 1 

运行代码后输出：

A B C D
1 1 1 1
1 1 1 
1 2 2 2
3 3 3 3  
1 1 1  

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