Excel에서 중복되지 않고 두 목록을 결합하는 방법은 무엇입니까?

워크 시트에는 두 개의 목록이 있고 목록의 일부 값은 중복됩니다.이 두 목록을 결합하고 아래 스크린 샷과 같이 고유 한 값을 그대로 두려고합니다. 어떻게 할 수 있습니까?

Excel에서 중복 제거를 사용하여 중복없는 목록 결합

VBA로 중복없는 목록 결합

Excel 용 Kutools로 중복없는 목록 결합

Excel에서 중복 제거를 사용하여 중복없는 목록 결합

놀라운! Chrome, Edge, Firefox 및 Safari와 같은 Excel에서 효율적인 탭을 사용하세요!
시간의 50 %를 절약하고 매일 수천 번의 마우스 클릭을 줄이십시오!

두 목록을 결합하고 Excel에서 중복 값을 제거하려면 다음과 같이 할 수 있습니다.

1. 두 목록 중 하나를 복사하여 다른 목록의 맨 아래에 붙여 넣으십시오. 스크린 샷을 참조하십시오.

2. 목록을 선택하고 Data > 중복 제거, 스크린 샷 참조 :

3. 에서 중복 제거 대화 상자에서 열에 헤더가 없으면 내 데이터에 헤더가 있습니다.다음을 클릭합니다 OK. 스크린 샷보기 :

4. 그런 다음 중복 항목이 삭제되었음을 알리는 대화 상자가 화면에 표시됩니다. OK. 스크린 샷보기 :

결과를 볼 수 있습니다.

VBA로 중복없는 목록 결합

Excel에서 VBA를 사용하면 중복없이 두 목록을 결합 할 수도 있습니다.

1. 보류 ALT 버튼을 눌러 F11 키보드에서 응용 프로그램용 Microsoft Visual Basic 창.

2. 클릭 끼워 넣다 > 모듈을 클릭하고 VBA를 모듈에 복사합니다.

VBA : 중복없이 목록 결합

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. 클릭 달리기 버튼을 누르거나 누르십시오. F5 VBA를 실행합니다.

4. 화면에 표시되는 대화 상자에서 결합 할 범위를 선택할 수 있습니다. 스크린 샷보기 :