對於一行中的所有唯一單元格，刪除行

Question

我需要刪除列「E」中所有單元格的行都是唯一的，所以在列中只有「非唯一」單元格列「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