2011-05-11 4 views
0

두 개의 열이 Excel 스프레드 시트의 데이터로 채워져 있습니다.중복을 찾아 제거하는 가장 쉬운 방법은 무엇입니까?

Column 1: 
A 
B 
C 
D 

Column 2: 
C 
D 
E 
F 
G 

Desired Data: A,B,C,D,E,F,G (not A,B,C,D,C,D,E,F,G) 

두 열을 결합하여 중복을 제거하고 싶습니다. 나는 C# 단어에서 왔기 때문에 VBA에 대한 나의 이해는 제한적이다. 나는 dimension (column1) + dimension (column2) 차원의 배열을 생성 한 다음 몇 가지 중복 제거 (built in in?) 또는 이와 비슷한 것을 수행 할 수 있다는 것을 알고있다.

어떤 지침을 주시면 감사하겠습니다.

+0

http://stackoverflow.com/questions/5890257/populate-unique-values-in-to-vba-array-from- excel/5891317 # 5891317 –

답변

2

다음을 사용하여 처리하고 다른 함수 나 서브 루틴처럼 호출하십시오.

Sub RemoveDupes() 

    'Add extra Column, "A" becomes "B" 
    Columns(1).EntireColumn.Insert 

    'Filter out duplicates and copy unique list to "A" 
    Range("B1", Range("B65536").End(xlUp)).AdvancedFilter _ 
     Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True 

    'Add extra Column, "B" becomes "A" 
    Columns(2).EntireColumn.Delete 

End Sub 

그럼 그냥 가입하고 각 열 :)에서 결과를 정렬

+0

각각에 속해있는 속임수를 제거하면 속임수를 다시 제거해야합니다. 아니면 일단 합류 한 후에 속임수를 삭제할 수 있습니다. 그냥 선생님 ':) – sooprise

관련 문제