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」ボタンをクリックしてください。

今回のケースでは、Fruit列で重複する行を削除し、Amount列に最大値を保持します。そのため、上記のスクリーンショットに示すように、Fruit列とAmount列を選択します。

これで、Fruit列に基づいて重複する行が削除され、対応する果物の最大値がAmount列に保持されます。スクリーンショットをご覧ください：

注意：

(1) 指定された範囲は、重複する行を削除する列から始まる必要があります。

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

(3) このVBAはMicrosoft Excel 2007では動作しません。

上記のVBAは、一部のユーザーにとって十分に簡単ではない場合があり、基準列の後ろにある列にのみ最大値を保持できます。しかし、Kutools for Excelの高度な行のマージ 機能は、この問題を簡単に解決するのに役立ちます。

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

2. 表示される「列に基づいて行を結合」ダイアログボックスで、次のように設定してください：

(1) Fruit列（重複する行を削除する列）を選択し、「メインキー」ボタンをクリックします；

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

(3) 必要に応じて、他の列の組み合わせルールを指定します。

3. 「 OK 」ボタンをクリックします。これで、Fruit列に基づいてすべての重複する行が削除され、Amount列に対応する果物の最大値のみが保持されます。スクリーンショットをご覧ください：

Kutools for Excelの高度な行のマージ機能を使用すると、1つの列に基づいて行を簡単に結合でき、その列に基づいて他の列を計算することもできます（例：合計、カウント、最大、最小、積など）。 60日間の無料トライアルはこちらをクリック！制限なし！