전체 행과 함께 중복된 셀을 숨기고,

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

전에

고급 필터 대화 상자

후에