Note: The other languages of the website are Google-translated. Back to English

중복 행을 제거하고 Excel에서만 가장 높은 값을 유지하는 방법은 무엇입니까?

예를 들어, 표시된 첫 번째 스크린 샷으로 Excel에 구매 테이블이 있습니다. 이제 Fruit 열을 기준으로 중복 행을 제거하고 표시된 두 번째 스크린 샷과 같이 Amount 열에서 해당 과일의 가장 높은 값을 유지해야합니다. 어떤 해결책을 생각할 수 있습니까? 이 기사에서는이를 해결하기위한 두 가지 트릭을 공유합니다.

중복 행을 제거하고 VBA로만 가장 높은 값 유지

중복 행을 제거하고 Excel 용 Kutools에서만 가장 높은 값을 유지하십시오.

한 열의 기준에 따라 중복 행을 쉽게 제거하고 Excel에서 가장 높은 값만 유지

Excel 용 Kutools 고급 결합 행 유틸리티는 Excel 사용자가 다른 열에있는 각 항목의 최소값의 최대 값을 쉽게 찾을 수 있도록 도와줍니다.

광고 고급 결합 최대 행

이 고급 결합 행 유틸리티는 또한 행을 결합하고 지정된 마크로 값을 분리하거나 행을 결합하고 합계, 발생 수, 최대 / 최소 값, 평균 등을 계산할 수 있습니다.

Office 탭 Office에서 탭 편집 및 찾아보기를 활성화하고 작업을 훨씬 쉽게 ...
Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.
  • 무엇이든 재사용 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용 할 수 있습니다.
  • 20 개 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트의 일부 추출 또는 제거 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서와 시트를 하나로; 데이터 손실없이 여러 셀 / 행 / 열 병합; 중복 행과 합계를 병합합니다.
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할합니다. 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 한 열에서 여러 열로.
  • 붙여 넣기 건너 뛰기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 개인화 된 이메일을 여러 수신자에게 대량으로 보냅니다.
  • 슈퍼 필터 : 고급 필터 구성표를 만들고 모든 시트에 적용하십시오. 종류 주, 일, 빈도 등으로; 필터 굵게, 수식, 주석으로 ...
  • 300개 이상의 강력한 기능; Office 2007-2021 및 365에서 작동합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다.

아래 스크린 샷과 같은 테이블이 있다고 가정합니다. 그리고이 방법은 VBA 매크로를 도입하여 특정 열을 기준으로 중복 행을 제거하고 Excel의 다른 열에 만 가장 높은 값을 유지합니다. 다음과 같이하십시오 :

1. 누르세요 다른 + 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. 이제 대화 상자가 나옵니다. 중복 행을 제거하고 가장 높은 값을 예약 할 열을 선택하고 OK 버튼을 클릭합니다.

이 경우 Fruit Column별로 중복 행을 제거하고 Amount Column에서 가장 높은 값을 유지하므로 위의 스크린 샷과 같이 Fruit 열과 Amount 열을 선택합니다.

그러면 Fruit 열을 기준으로 중복 행이 제거되고 해당 과일의 가장 높은 값이 Amount 열에 유지되는 것을 볼 수 있습니다. 스크린 샷보기 :

노트:

(1) 지정된 범위는 중복 된 행을 제거 할 열로 시작해야합니다.

(2)이 VBA는 중복 행을 제거한 열 바로 뒤에있는 열의 가장 높은 값만 유지할 수 있습니다.

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


위의 VBA는 일부 사용자에게는 쉽지 않을 수 있으며 기준 열 뒤의 열에 가장 높은 값만 유지할 수 있습니다. 그러나 Excel 용 Kutools 고급 결합 행 유틸리티를 사용하면이 문제를 쉽게 해결할 수 있습니다.

Excel 용 Kutools - 300개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 전체 기능 무료 평가판 30-day, 신용카드 불필요! 지금 무료 평가판!

1. 중복 행을 제거하고 가장 높은 값을 유지할 테이블을 선택하고 (이 경우 A1 : C24 선택)을 클릭합니다. 쿠툴 > 내용 > 고급 결합 행.

2. 열을 기준으로 행 결합 대화 상자를 열고 다음과 같이 구성하십시오.

(1) 과일 열 (중복 행 제거 기준)을 선택한 다음 기본 키 단추;

(2) 금액 열 (가장 높은 값을 유지할 것)을 선택한 다음 계산 > 최대.

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

문서 중복 제거 가장 높은 값 2 유지

3. 을 클릭합니다 Ok 단추. 그러면 Fruit Column을 기준으로 모든 중복 행이 제거되고 해당 과일의 최대 값만 Amount 열에 유지되는 것을 볼 수 있습니다. 스크린 샷보기 :

또한 고급 결합 행 Excel 용 Kutools의 유틸리티는 행을 한 열로 쉽게 결합한 다음이 열을 기반으로 Sum, Count, Max, Min, Product 등과 같은 다른 열도 계산할 수 있습니다. 60 일 무료 평가판을 클릭하면 제한이 없습니다!


Excel 용 Kutools 300일 동안 제한 없이 무료로 사용할 수 있는 30개 이상의 편리한 Excel용 도구가 포함되어 있습니다. 지금 다운로드 및 무료 평가판!

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (1)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
VBA 예에서 날짜 열은 필터링되지 않습니다. 조언 부탁드립니다.
아직 코멘트가 없습니다

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호