VBA로 중복값 제거하기

[smkim]

========================================================================================

현재 사용하는 엑셀 버젼을 기재하시면 좀더 정확하고 신속한 답변을 얻으실 수 있습니다. 

엑셀 버젼(예: 2010) :

========================================================================================

안녕하세요

unique_list.xlsx

엑셀 2010사용자입니다.

엑셀에는 중복값 제거하는 방법이 제가 알기로는 2개가 있습니다. 메뉴-->Data--> 중복값제거(remove duplicates)

그리고 피벗이 있는데

상기 2가지 방법으로 말고 VBA로 구현하고 싶습니다.

첨부 파일처럼 아무 값목록이 이렇게 있습니다 (길이는 항상 다릅니다)

그럼 옆에다가 Unique한 값을 바로 나열해주는 VBA function을 만들면 좋겠습니다.

도와주시면 감사하겠습니다.

[탁구짱]

역시..다르시네요
전 아래 같이 매크로 기록기 이용해서 살짝 고쳐서 가끔 사용하는데요..
기록기가 잘통하는 code 가 있고, 기록기가 안먹히는 코드들이 있어서...휴..그래서 공부 해야겠죠...^^


Sub Macro1()


'
' Macro1 Macro
'

'
Columns("B:B").Select
Selection.Copy
Columns("L:L").Select
ActiveSheet.Paste
Columns("L:L").Select
Application.CutCopyMode = False
ActiveSheet.Range("$L$1:$L$99").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

[smkim]

와우..감사합니다. 혹 시간나실때 설명도 좀 부탁드립니다 제가 초보라 열심히 공부는 하려고합니다만^^ 감사합니다

[탁구짱]

vba 책 보시거나, offline 강의 같은거 들으시면 빠른시간내 발전 하실수 있어요^^

[이군악]

http://www.snb-vba.eu/VBA_Dictionary_en.html

CreateObject("Scripting.Dictionary")를 이해하려면 하루종일 공부해야 가능하겠는데요...
쉽지가 않죠.

그냥 있는 기능 그대로 쓰세요. 왜 쉬운 길을 두고 어려운 길로 가려고 하는지...
대부분 프로그래머가 아닌 일반 사용자라면 있는 거 잘 활용하는 것도 능력입니다.

[이군악]

Scripting.Dictionary를 사용해야 할 일이 있어서 아래 Site를 보니 쉽게 설명이 되어 있네요.
그래도 이래저래 테스트해보고 다 이해하는데 2시간이 걸렸지만... 장점이 있는 거라네요.
시간날 때 익혀두면 좋을 듯. 저는 수도쿠 문제 푸는 거 VB로 해보려니 도움이 될 듯 합니다.

http://blog.naver.com/whtstone/40052260004