Excelで一意の値を連結するにはどうすればよいですか？

Excelで一意の値を連結することは、さまざまな方法で実現できる一般的なタスクです。この記事では、列の一意の値を連結し、対応する値を連結しながら一意の値をリスト化するための異なる手法を探ります。

列から一意の値のみを連結する

• TEXTJOINとUNIQUE関数を使用して
• Kutools AI アシスタントを使用して
• ユーザー定義関数を使用して

一意の値をリスト化し、対応する値を連結する

• TEXTJOINとUNIQUE関数を使用して
• Kutools for Excelを使用して
• VBAコードを使用して

列から一意の値のみを連結する

データ分析において、Excelの列から一意の値を単一のセルに連結する必要がある場合があります。このタスクは、好みやデータセットの複雑さに応じて、数式、VBA、またはKutoolsを使用して実現できます。以下では、これを効率的に処理するための最適化された方法を探ります。

方法1：TEXTJOINとUNIQUE関数を使用する

Excel 365またはExcel 2021を使用している場合、新しいTEXTJOINおよびUNIQUE関数により、列から一意の値を連結する簡単で効率的な方法が提供されます。

連結結果を表示したいセルに次の数式を使用してください：

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

方法2：Kutools AI アシスタントを使用する

より迅速かつ完全に自動化されたソリューションを求めている場合、Kutools for Excelには「Kutools AI アシスタント」という革新的なツールが用意されています。タスクを記述するだけで、AIが手動設定なしで即座に希望の結果を生成します。これにより、複雑な数式や時間のかかる設定の必要がなくなり、数秒で正確な結果を得ることができます。

Kutools for Excelをインストール後、「Kutools」＞「AI アシスタント」をクリックして「Kutools AI アシスタント」ペインを開きます。

1. 一意の値のみを結合したいセルを選択します；
2. チャットボックスに要件を入力します：例えば：
   選択した範囲から一意の値をカンマで連結し、結合結果をセルC2に入れる
3. その後、Enterキーを押すか「送信」ボタンをクリックします。Kutools AIが質問を分析し、終了後「実行」ボタンをクリックして結果を得ます。
   

方法3：ユーザー定義関数を使用する

より柔軟性が必要な上級ユーザー、またはプロセスを自動化したいユーザーのために、カスタムVBA関数（UDF）を作成して一意の値を連結することができます。この方法は、コーディングに慣れているユーザー、または再利用可能なソリューションが必要なユーザーに最適です。

1. 「ALT + F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：一意の値を単一のセルに連結する：

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. そしてワークシートに戻り、空白のセルに =ConcatUniq (A2:A18,",") という数式を入力し、Enterキーを押して一意の連結結果を得ます。スクリーンショットをご覧ください：

一意の値をリスト化し、対応する値を連結する

Excelでは、一意の値をリスト化し、それに対応する値を連結することが一般的なタスクであり、特に集約や統合が必要なデータセットを扱う際に重要です。このセクションでは、これを効率的に達成するための包括的なガイドを提供します。

方法1：TEXTJOINとUNIQUE関数を使用する

Excelの現代的な関数であるUNIQUE、FILTER、およびTEXTJOINを使用すると、複雑な数式を必要とせずに一意の値をリスト化し、それに対応する値を連結できます。

1. UNIQUE関数を使用して、列Aからすべての一意の値をリスト化します：

=UNIQUE(A2:A17)

2. TEXTJOINおよびFILTER関数を使用して、一意の値に対応する値を連結し、他のセルを埋めるために数式を下にドラッグします。スクリーンショットをご覧ください：

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

方法2：Kutools for Excelを使用する

Kutools for Excelを持っている場合、強力な「高度な行のマージ」機能を使用して、簡単に一意の値をリスト化し、それに対応する値を連結できます。コーディングや複雑な数式の必要はありません。データを選択し、設定を構成するだけで、Kutoolsが残りを処理し、数秒でプロフェッショナルな結果を提供します。

1. 元のデータを別のセルにコピーしてバックアップを取ります。データ範囲を選択し、「Kutools」＞「マージと分割」＞「高度な行のマージ」をクリックします。スクリーンショットをご覧ください：

2. 「高度な行のマージ」ダイアログボックスで設定を行います：

• 重複を結合する基準となる列名をクリックし、「操作」列のドロップダウンリストから「プライマリキー」を選択します；
• 次に、結合する値の列名を選択し、「操作」列のドロップダウンリストから値を区切る区切り文字を選択します；
• 最後に、OKボタンをクリックします。
  

結果：

Kutoolsは、指定された区切り文字を使用して一意の値を抽出し、それに対応する値を連結するプロセスを自動化します。

方法3：VBAコードを使用する

Excelの組み込み関数であるUNIQUEやTEXTJOINは、ある程度これを処理できますが、複雑なシナリオや古いバージョンのExcelでは不十分な場合があります。初心者でも上級者でも、このガイドではVBAコードを使用して一意の値をリスト化し、それに対応する値を連結する手順を説明します。

1. 「ALT + F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「挿入」＞「モジュール」をクリックし、モジュールウィンドウに次のコードを貼り付けます。

VBAコード：一意の値をリスト化し、対応するデータを連結する

Sub test()
    'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xOutputRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

3. 次にF5キーを押してこのコードを実行すると、一意の値に基づいて連結するデータ範囲を選択するように促すポップアップボックスが表示されます。スクリーンショットをご覧ください：

4. OKをクリックすると、結果を配置するセルを選択するように促す別のポップアップボックスが表示されます：

5. OKをクリックすると、一意の値が抽出され、もう一方の列の対応する値が連結されます。スクリーンショットをご覧ください：

結論として、Excelで一意の値を連結することは、さまざまな専門レベルやニーズに合わせた複数の方法で効率的に実現できます。自分の要件に最も適した方法を選択することで、データ処理を合理化し、Excelでの一意の値管理の効率を向上させることができます。さらに多くのExcelのヒントやコツに興味がある場合は、当社のウェブサイトには数千ものチュートリアルが掲載されています。