Excelで単一列からすべての可能な組み合わせをリストするにはどうすればよいですか？

下のスクリーンショットに示すように、単一列のデータからすべての可能な組み合わせを返したい場合、このタスクをExcelで処理するための迅速な方法はありますか？

数式を使用して単一列からすべての可能な組み合わせをリストする

VBAコードを使用して単一列からすべての可能な組み合わせをリストする

数式を使用して単一列からすべての可能な組み合わせをリストする

次の配列数式は、この作業を達成するのに役立ちます。手順に従ってください：

1. まず、2つのヘルパー数式セルを作成する必要があります。セルC1に以下の数式を入力し、「Ctrl + Shift + Enter」キーを押して結果を得てください：

2. セルC2に次の数式を入力し、「Ctrl + Shift + Enter」キーを同時に押して2番目の結果を得てください。スクリーンショットをご覧ください：

3. 次に、以下の数式をセルD2にコピーして貼り付け、「Ctrl + Shift + Enter」キーを同時に押して最初の結果を得てください。スクリーンショットをご覧ください：

4. そして、この数式セルを選択し、空白セルが現れるまでフィルハンドルを下にドラッグします。これで、指定された列データのすべての組み合わせが以下のように表示されます：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

VBAコードを使用して単一列からすべての可能な組み合わせをリストする

上記の数式は新しいExcelバージョンでのみ使用可能です。以前のExcelバージョンをお持ちの場合、次のVBAコードが役に立つでしょう。

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

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

VBAコード: 単一列からすべての可能な組み合わせをリストする

Sub ConnectArr()
'Updateby ExtendOffice
Dim xDValue As Variant
Dim xOutRg As Range
Dim xDictionary As Object
Dim xF As Long
Dim xChar As String
xDValue = Range("A2:A6").Value 'the data range
Set xOutRg = Range("C1") 'output range
xChar = "," 'separator
For xF = 1 To UBound(xDValue)
    Set xDictionary = CreateObject("Scripting.Dictionary")
    xDictionary(0) = "Sets of " & xF
    Call ConnectValue(xDValue, xDictionary, 0, xF, 0, "", xChar)
    xOutRg.Offset(0, xF - 1).Resize(xDictionary.Count).Value = WorksheetFunction.Transpose(xDictionary.Items)
    Set xDictionary = Nothing
Next
End Sub
Sub ConnectValue(ByRef pDValue, ByRef pDictionary, ByRef pLevel, ByVal pMaxLevel, ByVal pIndex, ByVal pValue, ByVal pChar)
Dim xF As Long
If pLevel = pMaxLevel Then
    pDictionary(pDictionary.Count + 1) = pValue
    Exit Sub
End If
For xF = pIndex + 1 To UBound(pDValue)
    If pValue = "" Then
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pDValue(xF, 1), pChar)
    Else
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pValue & pChar & pDValue(xF, 1), pChar)
    End If
Next
End Sub

3. そして、「F5」キーを押してこのコードを実行します。単一列からのすべての組み合わせが以下のようにリストされます：