Excelで3列または複数列のすべての組み合わせを生成するにはどうすればよいですか？

3列のデータがあると仮定し、これらの3列のデータのすべての組み合わせを以下のようにスクリーンショットに示されるように生成またはリストしたいと思います。このタスクをExcelで解決するための良い方法はありますか？

数式を使用して3列のデータに基づいてすべての組み合わせを生成する

VBAコードを使用して3列または複数列のデータに基づいてすべての組み合わせを生成する

素晴らしい機能を使用して3列または複数列のデータに基づいてすべての組み合わせを生成する

数式を使用して3列のデータに基づいてすべての組み合わせを生成する

以下の長い数式を使用すると、3列のすべての組み合わせをリストアップするのに役立ちます。次の手順を行ってください：

1. 結果を出力したいセルをクリックし、以下の数式をコピーして貼り付けます：

注：この数式では、A2:A4、B2:B6、C2:C5は使用したいデータ範囲です。

2. 次に、空白セルが表示されるまでフィルハンドルを下にドラッグします。これは、3列のすべての組み合わせがリストされたことを意味します。スクリーンショットをご覧ください：

VBAコードを使用して3列または複数列のデータに基づいてすべての組み合わせを生成する

上記の長い数式は若干使いづらい場合があります。複数列のデータを使用する場合、修正が面倒になることがあります。ここでは、それを迅速に処理するためのVBAコードを紹介します。

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

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

VBAコード：3列または複数列のすべての組み合わせを生成する

Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A4")  'First column data
Set xDRg2 = Range("B2:B6")  'Second column data
Set xDRg3 = Range("C2:C5")  'Third column data
xStr = "-"   'Separator
Set xRg = Range("E2")  'Output cell
For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    For xFN2 = 1 To xDRg2.Count
        xSV2 = xDRg2.Item(xFN2).Text
      For xFN3 = 1 To xDRg3.Count
        xSV3 = xDRg3.Item(xFN3).Text
        xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
        Set xRg = xRg.Offset(1, 0)
       Next
    Next
Next
End Sub

注：上記のコードでは、A2:A4、B2:B6、C2:C5は使用したいデータ範囲であり、E2は結果を配置したい出力セルです。より多くの列のすべての組み合わせを取得したい場合は、必要に応じてコードの他のパラメータを変更または追加してください。

3. そして、 F5キーを押してこのコードを実行すると、3列または複数列のすべての組み合わせが一度に生成されます。スクリーンショットをご覧ください：

素晴らしい機能を使用して3列または複数列のデータに基づいてすべての組み合わせを生成する

Kutools for Excelを持っている場合、強力な「すべての組み合わせをリストアップする」機能により、複数列のすべての組み合わせを迅速かつ簡単にリストアップできます。

1. 「Kutools」＞「挿入」＞「すべての組み合わせをリストアップする」をクリックします。スクリーンショットをご覧ください：

2. 「 すべての組み合わせをリストアップする」ダイアログボックスで、組み合わせをリストアップするための列データと区切り文字を指定します。スクリーンショットをご覧ください：

3. データと区切り文字を設定した後、「OK」ボタンをクリックし、次のプロンプトボックスで結果を配置するセルを選択します。スクリーンショットをご覧ください：

4. そして、「OK」ボタンをクリックすると、すべての組み合わせがすぐに生成されます。スクリーンショットをご覧ください：