メインコンテンツへスキップ

重複する行を削除し、Excelでのみ最大値を保持するにはどうすればよいですか?

たとえば、最初のスクリーンショットが示すように、Excelに購入テーブルがあります。 次に、Fruit列に基づいて重複する行を削除し、XNUMX番目のスクリーンショットに示すように、対応するフルーツの最大値をAmount列に保持する必要があります。 あなたはどんな解決策を考えることができますか? この記事では、それを解決するためのXNUMXつの秘訣を紹介します。

重複する行を削除し、VBAでのみ最大値を保持します

重複する行を削除し、Kutools forExcelでのみ最大値を保持します

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

Excel用のKutools 高度な結合行 ユーティリティは、Excelユーザーが別の列の各項目の最小値の最大値を簡単に見つけるのに役立ちます。

広告アドバンストコンバイン行最大

この高度な行の結合ユーティリティは、行を結合して指定されたマークで値を区切ることも、行を結合してそれらの合計、出現回数、最大/最小値、平均などを計算することもできます。


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

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

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


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

Kutools for Excel - Excel に必要な 300 以上のツールが詰め込まれています。 クレジット カードは必要なく、全機能を備えた 30 日間の無料トライアルをお楽しみください。 ダウンロード中!

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

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

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

(2)[金額]列(最大値を保持する列)を選択し、[ 計算 > 最大値.

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

docは重複を削除し、最高値を維持します2

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

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


Kutools for Excel: 300 を超える便利なツールをすぐに利用できます。 機能制限なしの 30 日間の無料トライアルを今すぐ始めてください。 今すぐダウンロード!

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
in VBA example, the date column doesn't filter. please advise.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations