Wie lösche (oder markiere) ich doppelte Zeilen in Excel NUR, WENN 4 oder mehr Instanzen vorhanden sind?

Question

Ich habe ein Excel-Dokument mit über 300 Datenzeilen. Spalte A ist nach Personalnamen sortiert und ich muss nur die Personen isolieren, dieweniger als 4Vorkommen innerhalb des Blattes.

Gibt es eine Möglichkeit, alle Namen mit 4 oder mehr zu löschen? Oder alle Namen mit 4 oder mehr hervorzuheben?

Danke schön!

Answer 1

Nehmen wir an, wir beginnen mit:

und wir führen dieses kurze Makro aus:

Sub RowKiller101()
  Dim rKill As Range, r As Range, wf As WorksheetFunction
  Dim rBig As Range
  Set rBig = Intersect(Range("A:A"), ActiveSheet.UsedRange)
  Set rKill = Nothing
  Set wf = Application.WorksheetFunction

  For Each r In rBig
    If wf.CountIf(rBig, r.Value) > 3 Then
      If rKill Is Nothing Then
        Set rKill = r
      Else
        Set rKill = Union(rKill, r)
      End If
    End If
  Next r

  If rKill Is Nothing Then Exit Sub
rKill.EntireRow.Delete
End Sub

Wir erhalten:

Answer 2

Für eine Nicht-VBA-Lösung:

Geben Sie eine Formel wie =countif($A:$A,$A1)in Spalte B ein. Ihre Tabelle sieht dann ungefähr so ​​aus:

    A    B  
1  Joe   3  
2  Joe   3  
3  Joe   3  
4  Amy   5  
5  Amy   5  
6  Amy   5  
7  Amy   5
8  Amy   5

Wählen Sie dann aus A1, gehen Sie zu Bedingte Formatierung (benutzerdefinierte Regel) und geben Sie die Formel ein =B1>=4. Wenden Sie die Regel dann so oft an, wie Sie es in Spalte A benötigen. Das Fehlen eines $Ankers bedeutet, dass sich die Regel zusammen mit der angewendeten Zelle verschiebt.

Answer 3

Garys Student: VBA-Lösung zum Löschen aller außer der <4-Gruppe
selwyth: Formellösung zum Filtern nur der <4-Gruppe
Diese Antwort: Lösung für bedingte Formatierung zum Hervorheben nur der <4-Gruppe

(Sie können auch auf dieOffice-Support-Artikelüber die Verwendung von Formeln in der bedingten Formatierung, die, wie sich herausstellt, COUNTIFals Beispiel verwendet wird.)

1. Wählen Sie den Datenbereich aus (im Beispiel habe ich die gesamte Spalte ausgewähltA:A
2. Klicken Sie in der HomeMultifunktionsleiste auf Conditional Formattingund dannNew Rule...
3. WählenUse a formula to determine which cells to format
4. Geben Sie eine Formel wie =COUNTIF($A:$A,$A1)<4
   A ein. Ändern Sie den $A:$Ain den Bereich, in dem Sie nach Duplikaten suchen. Zum Beispiel könnte es sein $G$12:$G$48. Der $ist wichtig, weil er es zu einemabsoluter Bezugdas ändert sich nicht von Zelle zu Zelle.
   B. Ändern Sie das $A1in dasErsteZelle im ausgewählten Bereich. Beachten Sie, dass es $hier nur eine gibt, da wir nur eine absolute Spalte haben möchten. Wir möchten, dass die Zeilennummer ( 1in diesem Fall ) relativ zur aktuellen Zelle ist.
   C. Das Ergebnis ist so, dass die bedingte Formatierung für A1die Formel verwendet =COUNTIF($A:$A,$A1)<4, für jedoch A2die Formel =COUNTIF($A:$A,$A2)<4. Dies bewirkt die Steuerung der absoluten bzw. relativen Referenzen ( $oder kein $) für Sie.
5. Klicken Sie auf die Format...Schaltfläche und wählen Sie die gewünschte Formatierung aus. In diesem Fall habe ich die Zellen mit einem gelben Hintergrund hervorgehoben.
6. Klicken Sie hier OK, um das Fenster für die bedingte Formatierung zu schließen und die Ergebnisse anzuzeigen

Beachten Sie, dass aufgrund meiner Vorgehensweise auch alle leeren Zeilen hervorgehoben werden. Wenn das bei Ihnen nicht funktioniert, gibt es einige Möglichkeiten, das Problem zu beheben. Ich empfehle Option 1, da dies eine einfache Möglichkeit ist, den Überblick über Ihre Liste zu behalten, während sie wächst.

1. Ändern Sie die Formel, die Sie in Schritt 4 verwenden, in=AND($A1<>"",COUNTIF($A:$A,$A1)<4)
2. Anstatt die gesamte Spalte auszuwählen A:A, wie ich es in Schritt 1 getan habe, wählen Sie nur Ihren Datenbereich aus.
3. Nachdem die bedingte Formatierung erstellt wurde, gehen Sie zurück zum Menüband Conditional Formatting Rules Manager(Start > Bedingte Formatierung > Regeln verwalten...) und ändern Sie das Applies toFeld von =$A:$Ain etwas Bestimmtes wie =$A$1:$A$19. Dies ist das gleiche Ergebnis wie bei Verwendung von Option 2, aber Sie können es nachträglich ändern.