Excelのグループに基づいて行をXNUMXつのセルに連結するにはどうすればよいですか？

これはXNUMXつの列の範囲です。XNUMXつはクラスリストで、もうXNUMXつは学生名リストです。 ご覧のとおり、同じクラスにいる生徒もいれば、そうでない生徒もいます。 次に示すスクリーンショットのように、同じクラスの生徒をXNUMXつのセルに連結したいのですが、Excelですばやく処理するにはどうすればよいですか？

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

グループ化してVBAコードと連結する

高度な結合行をグループ化して連結します

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

Excelでは、XNUMXつの列に基づいて連結された行に数式を適用し、フィルター関数を使用して結果のみを表示できます。

Note：手順を実行する前に、クラスでデータを並べ替える必要があります。

1.データ範囲（C13など）の横の空白のセルに、次の数式を入力します =IF(A13=A12,C12&", "&B13,B13)、 押す Enter キーを押して、塗りつぶしハンドルをドラッグして数式をセルに入力します。

式では、A13は「クラス」列の最初のデータ、B13は「名前」列の最初のデータ、「、」は連結内容を区切る区切り文字です。

2.次に、次の列D13に、この式を入力します =IF(A13<>A14,"Last","") 、および塗りつぶしハンドルを下にドラッグして、必要なセルに数式を適用します。

3.次に、数式を含むすべてのデータ範囲を選択し、をクリックします 且つ > Filter たす Filter icons データに。

4。 クリック Filter icon 最後の式ヘッダーで、チェックしてください Last ドロップダウンリストからのみチェックボックスをオンにして、 OK.

結果は次のように表示されます。必要がない場合は、最後のヘルパー列を削除できます。

グループ化してVBAコードと連結する

これは、このジョブも処理できるVBAコードです。

1。 押す Alt + F11 を有効にするためのキー Microsoft Visual Basic for Applications 窓。

2.次に、ウィンドウで、をクリックします Tools > References 有効にする References ダイアログ、およびチェック Microsoft Scripting Runtime。 スクリーンショットを参照してください：

3。 クリック OK、クリック Insert > Module VBAウィンドウで、以下のVBAコードをコピーして Module 脚本。 スクリーンショットを参照してください：

VBA：グループに基づいて行をXNUMXつのセルに連結します

  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 キーを押して、ポップアップダイアログで使用するデータ範囲を選択します。

5。 クリック OK をクリックして、グループ化の基準とするキー列を選択します。

6。 クリック OK、結果は以下のように表示されます。

高度な結合行をグループ化して連結します

ここにユーティリティがあります Kutools for Excel, Advanced Combine 行、Excel のキー列に基づいて行を結合したり、計算を実行したりできます。

インストールした後 Kutools for Excel、以下のようにしてください：（今すぐExcel用のKutoolsを無料でダウンロードしてください！）

1. 使用するデータ範囲を選択し、 をクリックします。 Kutools > マージ＆スプリット > 高度な結合行.

2。 の中に Advanced Combine Rows ウィンドウで、行を結合する基準となる列を選択し、 Primary Key キー列として設定します。

3. 結合する必要がある列を選択し、クリックします。 Combineをクリックし、結合されたコンテンツを区切るために使用する区切り文字を XNUMX つ選択します。

4。 クリック Ok。 結果は次のように表示されます。

Note注: ユーティリティを適用する前に、元のデータのコピーを用意しておいた方がよいでしょう。

  デモ