Excel 에서 중복 행을 제거하고 특정 열에서 최고값만 유지하려면 어떻게 해야 하나요？

다음 스크린샷과 같은 테이블이 있다고 가정합니다. 이 방법에서는 Excel 에서 특정 열을 기준으로 중복 행을 제거하고 다른 열에서 가장 높은 값만 유지하는 VBA 매크로를 소개합니다。 다음 단계를 따르세요：

1. Alt+F11키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다。

2. 삽입>모듈을 클릭하고， 새로 열린 모듈 창에 다음 코드를 붙여넣습니다。

VBA： 중복 행 제거 및 최고값 유지

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. F5키를 누르거나실행버튼을 클릭하여 이 VBA 를 실행합니다。

4. 이제 대화 상자가 나타납니다。 선택하세요 중복 행을 제거할 기준 열과 최고값을 유지할 열을 선택한 후확인버튼을 클릭합니다。

우리의 예시에서는 과일 열(Fruit Column)을 기준으로 중복 행을 제거하고 금액 열(Amount Column)에서 가장 높은 값을 유지하므로， 위 스크린샷과 같이 과일 열과 금액 열을 선택했습니다。

그러면 과일 열을 기준으로 중복 행이 제거되고， 각 과일에 해당하는 가장 높은 값이 금액 열에 유지되는 것을 확인할 수 있습니다。 스크린샷 참조：

참고 사항:

(1) 제한된 범위는 중복 행을 제거할 기준 열로 시작해야 합니다。

(2) 이 VBA 는 중복 행을 제거한 기준 열 바로 다음 열에서만 최고값을 유지할 수 있습니다。

(3) 이 VBA 는 Microsoft Excel 2007 에서는 작동하지 않습니다。

위의 VBA 는 일부 사용자에게 충분히 쉽지 않을 수 있으며, 기준 열 다음 열에서만 최고값을 유지할 수 있습니다. 하지만 Kutools for Excel 의고급 행 병합유틸리티를 사용하면 이 문제를 쉽게 해결할 수 있습니다。

1. 중복 행을 제거하고 최고값을 유지할 테이블을 선택합니다(예시에서는 A1:C24 범위 선택)。 그런 다음Kutools>병합 및 분할>고급 행 병합을 클릭합니다。

2. 열림 상태인 행 결합 열 기반 대화 상자에서 다음과 같이 설정합니다：

(1) 과일 열(중복 행을 제거할 기준 열)을 선택한 후기본 키버튼을 클릭합니다；

(2) 금액 열(최고값을 유지할 열)을 선택한 후계산>최대값(Max)를 클릭합니다。

(3) 필요에 따라 다른 열에 대한 결합 규칙을 지정합니다。

3. 확인버튼을 클릭합니다。 그러면 과일 열을 기준으로 모든 중복 행이 제거되고 금액 열에는 각 과일에 해당하는 최대값만 유지됩니다。 스크린샷 참조：

Kutools for Excel 의고급 행 병합유틸리티를 사용하면 한 열을 기준으로 쉽게 행 결합을 수행한 후 해당 열을 기준으로 다른 열에 대해 합계(Sum)， 개수(Count)， 최대값(Max)， 최소값(Min)， 곱(Product) 등을 계산할 수 있습니다。60 일 무료 체험판을 지금 다운로드하세요。 사용 제한 없음！