본문으로 바로가기

unique뽑아내기

category Excel VBA/VBA 예제 2018.09.22 16:09
1
2
3
4
5
6
7
8
Sub 주소_시이름unique에넣기()
    Sheets("unique").Cells.Clear
    Count = Sheets("raw_data").Range("a1").CurrentRegion.Rows.Count
    Sheets("raw_data").Range("B1:B" & Count).advancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=Range("A1"), _
    Unique:=True
End Sub
cs



댓글을 달아 주세요