XNUMXつの列の基準に基づいて重複する行を簡単に削除し、Excelで最大値のみを保持します

以下のスクリーンショットのようなテーブルがあるとします。 また、このメソッドはVBAマクロを導入して、特定の列に基づいて重複する行を削除し、Excelの別の列にのみ最大値を保持します。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に押して、Microsoft Visual Basic forApplicationsウィンドウを開きます。

2。 クリック インセット > モジュール、次のコードを新しく開いているモジュールウィンドウに貼り付けます。

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 Excel2007では機能しません。

上記のVBAは、一部のユーザーにとっては十分に簡単ではない可能性があり、基準列の後ろの列に最大値しか保持できません。 しかし、Excel用のKutools 高度な結合行 ユーティリティは、この問題を簡単に解決するのに役立ちます。

1.重複する行を削除して最大値を保持するテーブルを選択し（この場合はA1：C24を選択）、[ クツール > コンテンツ > 高度な結合行.

2. [列に基づいて行を結合]ダイアログボックスを開いて、次のように構成してください。

（1）[フルーツ]列（重複する行を削除します）を選択し、[ 主キー ボタン;

（2）[金額]列（最大値を保持する列）を選択し、[ 計算 > マックス.

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

3。 クリック Ok ボタン。 次に、Fruit列に基づいて重複するすべての行が削除され、対応するフルーツの最大値のみがAmount列に保持されます。 スクリーンショットを参照してください：

世界 高度な結合行 Kutools for Excelのユーティリティは、行をXNUMXつの列で簡単に結合し、この列に基づいて、合計、カウント、最大、最小、製品などの他の列も計算できます。 クリックして60日間の無料トライアル、制限なし！