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

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

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

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

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

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

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

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

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

OfficeタブOfficeでタブ付きの編集と閲覧を有効にし、作業をはるかに簡単にします...
Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最もよく使用される、または複雑な数式、グラフなどをお気に入りに追加して、後ですぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換します。
  • マージツール:複数のワークブックとシートをXNUMXつに。 データを失うことなく複数のセル/行/列をマージします。 重複する行と合計をマージします。
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 XNUMXつのワークブックから複数のExcel、PDF、またはCSVファイル。 XNUMX列から複数列。
  • 貼り付けスキップ 非表示/フィルタリングされた行; カウントと合計 背景色別; パーソナライズされた電子メールを複数の受信者にまとめて送信します。
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 並び替え 週、日、頻度など。 フィルタ 太字、数式、コメント...
  • 300 以上の強力な機能。 Office 2007-2021 および 365 で動作します。 すべての言語をサポートします。 企業や組織に簡単に導入できます。

以下のスクリーンショットのようなテーブルがあるとします。 また、このメソッドは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-day、クレジットカード不要! 今すぐ無料トライアル!

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

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

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

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

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

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

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

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


Kutools for Excel には、Excel 用の 300 以上の便利なツールが含まれており、30 日間制限なく無料で試すことができます。 今すぐダウンロードして無料トライアル!

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

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (1)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
VBAの例では、日付列はフィルタリングされません。 お知らせ下さい。
ここにはまだコメントが投稿されていません

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護