doppelte Zellen samt deren gesamten Zeilen ausblenden,

Question

ich habe einen Datensatzbereich mit 3 Spalten, wie unten angegeben.

0 abc def
0 geh ijk
0 lmn nop
5 qrs tuv
5 wxy zab
5 cde fgh
10 ab cd
10 ef gh
10 ij kl

in der ersten Spalte haben wir 0, 5 und 10..... die sich wiederholen.

ich möchte nur den ersten Wert zusammen mit der gesamten Zeile behalten und die verbleibenden Duplikate 0,5,10... ausblenden.

ich habe einen großen Datensatzbereich und jeder Wert in der ersten Spalte hat 9 doppelte Werte.

Answer 1

Sub hide_duplicates()
Dim OneCell As Range
For Each OneCell In Range("A2:A10") ' data range
    If OneCell.Value = OneCell.Offset(-1, 0).Value Then
        OneCell.EntireRow.Hidden = True
    End If
Next
End Sub

Answer 2

sub hideDupes()

   dim r as range

   with worksheets("sheet1")
       for each r in .range(.cells(1, "a"), .cells(.rows.count, "a").end(xlup))
           r.entirerow.hidden = cbool(r.row > application.match(r.value, .range("a:a"), 0))
        next r
    end with

end sub

Answer 3

Advanced FilterSie können die Kriterien mit einer Formel verwenden :

=COUNTIF(A8:$A$8,A8)=1

Vor

Erweiterter Filterdialog

Nach