скрытие дублирующихся ячеек вместе со всеми их строками,

Question

У меня есть диапазон данных из 3 столбцов, как показано ниже.

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

в первом столбце у нас 0, 5 и 10... повторяются.

Я хочу сохранить только первое значение вместе со всей строкой и скрыть оставшиеся дубликаты 0,5,10.....

У меня большой диапазон данных, и каждое значение в первом столбце имеет 9 дублирующихся значений.

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 Filterкритерии с формулой:

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

До

Диалоговое окно Adv Filter

После