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

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

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

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

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

1. 新しい列に次の数式を入力し、「Enter」キーを押します。列全体に適用するために下にドラッグします。

   =IF(A2=A1,C1&", "&B2,B2)

   
2. 新しい列に次の数式を入力し、「Enter」を押して数式を下にドラッグします。

   =IF(A2<>A3,"Last","")

   
3. ヘルパー列を含むすべてのデータ範囲を選択します。「データ」＞「フィルター」を選択して、データにフィルターアイコンを追加します。
   
4. 最後のヘルパー列にある「フィルターアイコン」をクリックし、「最終行」チェックボックスのみをオンにして「OK」をクリックします。
   

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

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

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

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

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

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

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

1. 「Alt」+「F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを有効にします。
2. コードエディタで、「ツール」＞「参照設定」をクリックして「参照設定」ダイアログを有効にし、「Microsoft Scripting Runtime」にチェックを入れ、変更を保存します。
   
3. 「挿入」＞「モジュール」に移動し、次の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

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

結果は次のようになります：

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

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