具有条件的重复项的宏答案

【问题标题】：Macro for duplicates with conditions具有条件的重复项的宏
【发布时间】：2014-11-11 07:25:45
【问题描述】：

我有一些数据，其中 E 列及其部门号中有多个重复项。在 S 列中。我想要做的是，对于 col E 中的任何重复值，如果 Col S 的值相同，那么它应该在第一个重复项中保留相同的值并删除其他重复项。如果 Col S 值不同，则其中的值应为“18”。例如

Col E Col S Ans
1515A 10 不保留任何更改
1515AA 12 在 Col A 中保留 1515AA，在 Col S 中保留 12
1515AA 12 删除
1515AA 12 删除
5151B 8 保持不变
515BB 5 取 515BB 和 18
515BB 3 删除

我有近 800-1500 个订单项。谁能帮我做一个宏。这对我来说非常有用，而不是手动查找和删除数据。

【问题讨论】：

标签： excel duplicates countif vba

【解决方案1】：

你可以使用类似的东西：

Sub EraseR()
    i = 1
    While Range("E" & i).Value <> ""
        If (Range("E" & i + 1).Value = Range("E" & i).Value) And (Range("S" & i + 1).Value = Range("S" & i).Value) Then
            Range(i + 1 & ":" & i + 1).Delete
        ElseIf (Range("E" & i + 1).Value = Range("E" & i).Value) And (Range("S" & i + 1).Value <> Range("S" & i).Value) Then
            Range(i + 1 & ":" & i + 1).Delete
            Range("S" & i).Value = 18
        Else
            i = i + 1
        End If
    Wend
End Sub

【讨论】：

嘿，非常感谢。这个宏对我有用。很抱歉延迟回复。 :)