본문으로 바로가기

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


'Excel VBA > VBA 예제' 카테고리의 다른 글

구글 스프레드시트 세로값 펼치기  (0) 2019.05.09
unique뽑아내기  (0) 2018.09.22
excel vba 정렬  (0) 2018.09.19
excel vba function 예제 - 사칙연산  (0) 2018.07.25
열개수 숫자를 알파벳으로 ex)27 -> AA  (0) 2018.07.24
excel vba 글자 나누기 Split()  (0) 2018.07.11

댓글을 달아 주세요