Excel で重複する行を基に複数の行を1 つにまとめるには、どうすればよいですか？

著者Xiaoyang変更日2024-08-07

下記のスクリーンショットのようなデータがあると仮定します。製品名が記載された列 A にはいくつかの重複アイテムが含まれており、これらの重複エントリを削除するとともに、列 B の対応する値を統合する必要があります。スクリーンショットをご確認ください。

このタスクを解決するための効果的な方法はありますか？

VBA コードで複数の重複行を1 つに結合

複数の重複行を1 つに結合（Kutools for Excel 使用）

複数の重複行を結合し、Kutools for Excel で値を合計／平均

VBA コードで複数の重複行を1 つに結合

次の VBA コードは、列 A の値に基づいて重複行を結合するのに役立ちます。ただし、このコードは2 列のデータにのみ対応しているため、データが2 列の場合に最適です。

1。ALT + F11キーを押すと、Microsoft Visual Basic for Applications ウィンドウが開きます。

2。挿入 > モジュールをクリックし、表示されるモジュールウィンドウに以下のコードを貼り付けてください。

VBA コード：複数の行を1 つに結合

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3。次にF5キーを押すと、結合したい範囲を選択するよう促すダイアログボックスが表示されます。スクリーンショットをご覧ください。

コード実行後にデータ範囲を選択しているスクリーンショット

4。次にOKをクリックすると、列 B の値がスペースで区切られて1 つのレコードに結合されます。

結果を示すスクリーンショット

注意事項：

1。このコードは元のデータを破損するおそれがあるため、使用前に必ずバックアップを取得してください。

2。このコードは2 列にのみ適用されます。データが2 列を超える場合、最初の2 列のみが結合され、それ以外の列のデータは削除されますので、ご使用の際は十分ご注意ください。

素晴らしい！Excel でChrome、Edge、Firefox、Safari のような効率的な Tabs をご利用いただけます！
毎日数千回のマウスクリックを削減し、50% もの時間を節約できます！

複数の重複行を1 つに結合（Kutools for Excel 使用）

上記のコードにはいくつかの制限とリスクがあるため、この作業をもっと簡単かつ安全に行う方法はないでしょうか？Kutools for Excelの高度な行のマージ機能を使えば、基準列の重複行をすばやく削除し、他のレコードを適切なセルにマージまたは集計できます。

Kutools for Excelには300 以上の便利なExcel ツールが含まれています。30 日間、すべての機能を無料で制限なくお試しいただけます。今すぐ入手。

Kutools for Excel をインストール後、次の手順に従ってください。

1。重複を統合するデータの範囲を選択します。

ソースデータを選択しているスクリーンショット

2。次に、Kutools > 結合と分割 > 高度な行のマージをクリックします。

3。高度な行のマージダイアログボックスで、値を結合する基準となる列をキーカラムとして選択し、次にキーカラムをクリックします。

「列に基づく行の結合」ダイアログボックスでキー列を選択しているスクリーンショット

4。次に、値を1 つのレコードに結合したい列をクリックし、統合の種類で区切り文字で結合のみを選択して、右側のリストから結合後の値を区切る区切り文字を1 つ選びます。スクリーンショットをご覧ください。

「列に基づく行の結合」ダイアログボックスで結合区切り文字を選択しているスクリーンショット

5。設定が完了したら、OKをクリックすると、データがキーカラムに基づいてマージされ、指定した区切り文字で区切られます。

結合結果のスクリーンショット

注：他の列に操作を設定しない場合は、デフォルトのままにしておいて問題ありません。

複数の重複行を結合し、Kutools for Excel で値を合計／平均

この多機能な高度な行のマージ機能を使えば、重複する行を結合するだけでなく、その値に対して計算も同時に行えます。

1。重複を結合したい範囲のデータを選択します。

2。高度な行のマージダイアログボックスを開きます。

(1。) 計算の基準となる列名をキーカラムとして選択し、次にキーカラムをクリックします。
(2。) 値に対して何らかの計算を行う必要がある列を選択し、次に統合の種類 > 結合して計算をクリックして、必要な計算タイプを1 つ選択します。ここでは合計を選択しています。スクリーンショットをご覧ください。

「列に基づく行の結合」ダイアログボックスの設定方法を示すスクリーンショット

3。他の列に対して操作を設定しない場合はデフォルトのままにしてOKをクリックすると、列 A の重複する値がマージされ、列 B の対応する値が合計されます。スクリーンショットをご確認ください。

注意事項：

1。タイトルを含めるオプションをオンにすると、この機能を適用する際に範囲のヘッダー（1 行目）が無視されます。

2。フォーマット済みの値を使用する：セルを結合して重複をまとめても数値の書式がそのまま保持されます。

3。この機能はフィルター処理されたデータにはご利用いただけません。

この高度な行のマージ機能の詳細については、こちらをクリックしてください。

重複行を結合して値を合計

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！