グループに基づいて行を1つのセルに連結するための3つの方法

Author Sun Last modified 2025-08-26

構造化されたデータセットでExcelを使用する場合、グループに基づいて複数の行のデータを1つのセルに結合することは一般的な要件です。例えば、同じクラスに関連するすべての名前を1つのセルにマージしたい場合があります。この記事では、さまざまなスキルレベルや使用例に対応したステップバイステップの手順と最適化を提供します。

A screenshot of two columns with classes and student names, and concatenated student names based on classes

数式とフィルター機能を使用してグループ化および連結
Kutools for Excelを使用して簡単にグループ化および連結
VBAコードを使用してグループ化および連結

数式とフィルター機能を使用してグループ化および連結

Excelの数式と「フィルター」機能を使用して、列に基づいて行を連結できます。以下の手順に従ってください。

注意: データがグループ化列（この場合は「クラス」）でソートされていることを確認してください。

新しい列に次の数式を入力し、「Enter」キーを押します。列全体に適用するために下にドラッグします。
```
=IF(A2=A1,C1&", "&B2,B2)
```
新しい列に次の数式を入力し、「Enter」を押して数式を下にドラッグします。
```
=IF(A2<>A3,"Last","")
```
ヘルパー列を含むすべてのデータ範囲を選択します。「データ」＞「フィルター」を選択して、データにフィルターアイコンを追加します。
最後のヘルパー列にある「フィルターアイコン」をクリックし、「最終行」チェックボックスのみをオンにして「OK」をクリックします。

これで結果が以下のように表示されます。必要がなければ、最後のヘルパー列を削除してもかまいません。

A screenshot of final grouped and concatenated results in Excel

Kutools for Excelを使用して簡単にグループ化および連結

Kutools for Excelは、「高度な行のマージ」というシンプルで効率的なソリューションを提供します。これにより、グループ化された行を数回のクリックで1つのセルにマージできます。また、カンマ、スペース、または改行などのカスタム区切り文字を自動的に追加し、多様なデータ表現のニーズに対応します。

Kutools for Excel - Excel向けの300以上の必須ツールを搭載。永久に無料のAI機能をお楽しみください！今すぐダウンロード！

データが含まれているセルを選択します。「Kutools」＞「統合と分割」＞「高度な行のマージ」に移動します。
「高度な行のマージウィンドウで、次のように設定してください：
1. 行を結合する基準となる列をクリックし、「主キー」として設定します。
2. 結合したい列（この場合は「名前」列など）に対して、「操作」フィールドの「結合」セクションで区切り文字を指定します。
3. 「OK」ボタンをクリックします。

結果: Kutoolsは、グループに基づいてデータを自動的にマージし、特定の区切り文字で1つのセルにまとめます。

注意: このユーティリティを適用する前に、元のデータのコピーを作成することをお勧めします。

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

VBAコードを使用してグループ化および連結

VBAを使用して、グループに基づいて動的に行を連結することもできます。

「Alt」+「F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを有効にします。
コードエディタで、「ツール」＞「参照設定」をクリックして「参照設定」ダイアログを有効にし、「Microsoft Scripting Runtime」にチェックを入れ、変更を保存します。

「挿入」＞「モジュール」に移動し、次のVBAコードをモジュールウィンドウに貼り付けます。

VBA: グループに基づいて行を1つのセルに連結

Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub

A screenshot showing pasted VBA code in module window

「F5 」キーを押してスクリプトを実行し、プロンプトに従ってデータ範囲を選択し、キーカラムを指定します。

結果は次のようになります：
A screenshot showing the concatenated results after running the VBA script

Excelでデータを扱う際、グループ化してセルを結合することは一般的でありながら複雑な作業です。目的やツールに応じて、この目標を達成するためのいくつかの方法から選ぶことができます。具体的なニーズや好みに最も適したツールや方法を選んで、Excelでの作業をより効率的かつ便利にしましょう。さらに多くのExcelのヒントやコツに興味がある場合は、当社のウェブサイトには数千ものチュートリアルがあり、Excelを習得するのに役立ちます。

デモ: Kutools for Excelの高度な行のマージを使用してグループ化および連結

Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結！永久無料のAI機能をお楽しみください！今すぐダウンロード！

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

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