Excel에서 중복을 제거하지만 첫 번째 항목은 유지하려면 어떻게 해야 하나요?

워크시트에 중복된 값이 포함된 목록이 있다고 가정해 보겠습니다. 이제 중복을 제거하지만 중복된 값이 처음 발견된 첫 번째 행은 유지해야 합니다. 이 문서에서는 Excel에서 중복을 제거하면서 첫 번째 항목을 유지하는 두 가지 방법을 소개합니다.

VBA 코드를 사용하여 중복 제거 및 첫 번째 항목 유지하기
Kutools for Excel을 사용하여 중복 제거 및 첫 번째 항목 유지하기

VBA 코드를 사용하여 중복 제거 및 첫 번째 항목 유지하기

아래 VBA 코드를 실행하여 열의 중복을 제거하고 첫 번째 항목을 유지할 수 있습니다.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 대화 상자를 엽니다.

2. Microsoft Visual Basic for Applications 대화 상자에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 코드를 복사하여 코드 창에 붙여넣습니다.

VBA 코드: 중복 제거 및 첫 번째 항목 유지하기

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. 코드를 실행하기 위해 F5 키를 누릅니다. 나타나는 KutoolsforExcel 대화 상자에서 중복을 제거하려는 범위를 선택한 후 확인 버튼을 클릭합니다. 스크린샷 보기:

이제 선택한 열 범위에서 첫 번째 항목을 제외한 모든 중복 행이 제거된 것을 확인할 수 있습니다. 스크린샷 보기:

Kutools for Excel을 사용하여 중복 제거 및 첫 번째 항목 유지하기

VBA 코드 외에도, Kutools for Excel 추가 기능의 '중복 및 고유 셀 선택' 유틸리티를 사용하여 Excel에서 중복을 쉽게 제거하고 첫 번째 항목을 유지할 수 있습니다.

1. 중복을 제거하지만 첫 번째 항목은 유지하려는 범위를 선택합니다. 그런 다음 Kutools > 선택 > 중복 및 고유 셀 선택을 클릭합니다.

2. '중복 및 고유 셀 선택' 대화 상자에서 '중복된 값 (첫 번째 일치 제외)' 옵션을 선택하고 확인 버튼을 클릭합니다. 스크린샷 보기:

3. 다음 '중복 및 고유 셀 선택' 대화 상자에서 확인을 클릭합니다.

4. 이제 첫 번째 항목을 제외한 중복 항목이 선택되었습니다. 선택된 중복 항목을 제거하려면 Delete 키를 누르세요.

참고: 중복된 행을 삭제하려면 '중복 및 고유 셀 선택' 대화 상자에서 '전체 행 선택' 옵션을 선택한 후 마우스 오른쪽 버튼 메뉴의 '삭제' 명령을 적용하여 전체 중복 행을 제거하면 됩니다.

Kutools for Excel을 사용하여 중복 제거 및 첫 번째 항목 유지하기