Excelで重複に基づいて複数の行を1つに結合するにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

おそらく、次のスクリーンショットのようなデータがある場合、列Aの「製品名」にはいくつかの重複項目があり、ここで列Aの重複エントリを削除し、対応する列Bの値を結合する必要があります。スクリーンショットをご覧ください：

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

VBAコードを使用して複数の重複行を1つに結合する

Kutools for Excelを使用して複数の重複行を1つに結合する

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キーを押すと、結合したい範囲を選択するように求めるプロンプトボックスが表示されます。スクリーンショットをご覧ください：

a screenshot of selecting data range after running the code

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

a screenshot showing the result

注意：

1. このコードは元のデータを破壊する可能性があります。使用する際は、まずデータをバックアップすることをお勧めします。

2. このコードは2列のみに適用されます。2列以上ある場合、最初の2列のみが結合され、他の列のデータは削除されます。このコードを使用する際は注意が必要です。

Kutools for Excelを使用して複数の重複行を1つに結合する

上記のコードにはいくつかの制限やリスクがあるため、便利で安全な方法でこの作業を完了できる方法はないでしょうか？ Kutools for Excelの高度な行のマージ機能を使用すると、基準となる列に基づいて複数の重複行を迅速に削除し、他のレコードに対してマージまたは計算を行い、適切なセルに統合できます。

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

Kutools for Excelをインストール後、以下の手順を行ってください：

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

a screenshot of selecting the source data

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

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

a screenshot of selecting a key column in the Combine Rows Based on Column dialog box

4. 続けて、値を1つのレコードに結合したい列をクリックし、「統合の種類」をクリックして「区切り文字で結合」を選択し、右側のリストから必要な区切り文字を選んでください。スクリーンショットをご覧ください：

a screenshot of selecting a combine separator in the Combine Rows Based on Column dialog box

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

a screenshot of the combined result

注釈: 残りの列に操作を設定する必要がない場合は、デフォルトの状態のままにしておいてください。

Kutools for Excelを使用して複数の重複行を結合し、値を合計/平均する

この多機能な高度な行のマージ機能を使用すると、重複行を結合し、値に対して計算を行うこともできます。

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

2. 「高度な行のマージ」ダイアログボックスに進みます；

（1.）他の列の値を計算する基準となる列名を選択し、「主キーカラム」をクリックします；
（2.）値に対して計算を行う列を選択し、「統合の種類」>「計算付き結合」をクリックして、必要な計算タイプを選択します。この場合、私は「合計」を選択しました。スクリーンショットをご覧ください：

a screenshot showing how to set the Combine Rows Based on Column dialog box

3. 残りの列に操作を設定する必要がない場合は、デフォルトの状態のまま「OK」をクリックすると、列Aの重複値がマージされ、列Bの対応する値が合計されます。スクリーンショットをご覧ください：

注意：

1. 「データにヘッダーが含まれている」オプションをチェックすると、範囲のヘッダー（最初の行）はこのユーティリティを適用する際に無視されます。

2. 書式設定された値を使用する: 重複セルを結合した後も値の書式設定を保持します。

3. このユーティリティはフィルタリングされたデータには使用できません。

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

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

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数