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。ダイアログボックスが表示されます。「基準とする列」と「最大値を保持する列」を選択し、重複を削除して「OK」ボタンをクリックします。

今回の例では、「フルーツ」列を基準に重複行を削除し、「数量」列には最大値を保持するため、上図のスクリーンショットのように「フルーツ」列と「数量」列を選択しています。

すると、「フルーツ」列を基準に重複行が削除され、「数量」列には対応するフルーツの最大値が保持されます。スクリーンショットをご確認ください。

注意事項：

(1) 制限された範囲は、重複行の削除基準となる列から開始する必要があります。

(2) この VBA は、重複を削除した列の直後の列にのみ最大値を保持します。

(3) この VBA は Microsoft Excel 2007 ではご利用いただけません。

上記の VBA コードは、一部のユーザーにとっては十分に簡単とは言えないかもしれません。また、基準列の直後の列にしか最大値を保持できません。しかし、Kutools for Excel の高度な行のマージユーティリティを使えば、この課題を簡単に解決できます！

1。重複する行を削除して最大値を保持するテーブル（今回の例では A1:C24）を選択し、「Kutools>結合と分割>高度な行のマージ」をクリックします。

2。「行の結合（列に基づく）」ダイアログボックスが開いたら、以下のとおり設定してください。

(1) 「フルーツ」列（重複を削除する基準となる列）を選択し、「主キー」ボタンをクリックします。

(2) 「数量」列（最大値を保持する列）を選択し、「計算 > 最大値」をクリックします。

(3) その他の列については、必要に応じて組み合わせルールを設定してください。

3。「OK」ボタンをクリックすると、「フルーツ」列を基準にすべての重複行が削除され、「数量」列には対応するフルーツの最大値のみが保持されます。スクリーンショットをご覧ください。

Kutools for Excel の高度な行のマージユーティリティを使えば、特定の列を基準に行の結合を簡単に解除でき、その列に基づいて他の列のデータを合計、個数、最大値、最小値、積など多彩な方法で集計することも可能です。60 日間の無制限無料トライアルはこちら！