对于一行中所有唯一的单元格，删除行

Question

我需要删除“ E”列中所有单元格的唯一行，因此列中只有“ NON-Unique”单元格，即“ E”列中只有重复项。

我一直在寻找执行此操作的代码，但是却很少。

抱歉，我什至无法发布摘要。

谢谢

Answer 1

试试看：

Sub RemoveUniques()
    Dim E As Range, rDel As Range, r As Range, N As Long
    N = Cells(Rows.Count, "E").End(xlUp).Row
    Set E = Range("E1:E" & N)
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    Set rDel = Nothing
    For Each r In E
        v = r.Value
        If wf.CountIf(E, v) = 1 Then
            If rDel Is Nothing Then
                Set rDel = r
            Else
                Set rDel = Union(rDel, r)
            End If
        End If
    Next r

    If Not rDel Is Nothing Then
        rDel.EntireRow.Delete
    End If
End Sub