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

Author Xiaoyang Last modified 2025-08-26

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

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

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

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

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

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

=MAX(LEN(A2:A6))

注: この数式では、A2:A6は組み合わせをリストしたいセルの範囲です。

create the first helper formula

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

=CONCAT(A2:A6&REPT(" ",C2-LEN(A2:A6)))

注: この数式では、A2:A6は組み合わせをリストしたいセルの範囲であり、C2はステップ1で作成した数式が含まれているセルです。

create the second helper formula

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

=IF(ROW()>2^(COUNTA(A$2:A$6)),"",TEXTJOIN(" + ",TRUE,IF(MID(TEXT(DEC2BIN(ROW()-1),REPT("0",COUNTA($A$2:$A$6))),ROW(INDIRECT("1:"&COUNTA($A$2:$A$6))),1)+0,TRIM(MID($C$3,(ROW(INDIRECT("1:"&COUNTA($A$2:$A$6)))-1)*$C$2+1,$C$2)),"")))

注: この数式では、 A2:A6は組み合わせをリストしたいセルの範囲であり、C2はステップ1で作成した数式が含まれているセル、 C3はステップ2で作成した数式が含まれているセルです。「 +」文字は組み合わせを区切る区切り文字であり、必要に応じて変更できます。

enter a formula

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

注: この数式はOffice 2019、365およびそれ以降のバージョンでのみ使用可能です。

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

注：上記のコードでは：

A2:A6: 使用したいデータのリストです；
C1: 出力先のセルです；
,: 組み合わせを区切る区切り文字です。

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

vba code to get all combinations from the single column

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数