如何在 Excel 中列出或生成所有可能的組合？

在 Excel 中處理數據時，您可能會遇到需要從多個列表中生成所有可能組合的情況。例如，如果您有兩列或多列值，手動列出每個組合可能會非常繁瑣且容易出錯，特別是當值的數量增加時。在本指南中，我們將探討幾種技術，以快速在 Excel 中列出或生成所有可能的組合。

使用公式從兩個列表中列出或生成所有可能的組合

使用 VBA 程式碼從三個或多個列表中列出或生成所有可能的組合

使用 Kutools for Excel 從多個列表中列出或生成所有可能的組合

使用公式從兩個列表中列出或生成所有可能的組合

以下長公式可以幫助您快速列出兩個列表值的所有可能組合，請按照以下步驟操作：

1. 在空白單元格中輸入或複製以下公式，在這種情況下，我將其輸入到 D2 單元格中，然後按「Enter」鍵以獲取結果，請參見截圖：

=IF(ROW()-ROW($D$2)+1>COUNTA($A$2:$A$5)*COUNTA($B$2:$B$4),"",INDEX($A$2:$A$5,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$4)+1))&"-"&INDEX($B$2:$B$4,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$4))+1))

2. 然後選擇 D2 單元格並向下拖動填充柄，直到出現空白單元格為止。所有可能的組合將基於這兩個列表的值進行列出。請參見截圖：

使用 VBA 程式碼從三個或多個列表中列出或生成所有可能的組合

如果上述公式感覺難以應用，特別是在有多列數據的情況下，修改它可能會很困難。在這種情況下，VBA 程式碼提供了一個更快、更靈活的解決方案。

1. 按住「ALT + F11」鍵打開「Microsoft Visual Basic for Applications」窗口。

2. 點擊「插入」>「模塊」，並將以下程式碼粘貼到「模塊」窗口中。

VBA 程式碼：生成三列或多列的所有組合

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:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  '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

3. 然後，按下「F5」鍵運行程式碼，三列的所有組合將立即生成，請參見截圖：

使用 Kutools for Excel 從多個列表中列出或生成所有可能的組合

如果有許多值列表需要列出所有可能的組合，也許對您來說修改程式碼會比較困難。這裡，我可以推薦一個強大的工具——「Kutools for Excel」，它包含一個方便的功能「列出所有組合」，可以根據給定的數據列表快速列出所有可能的組合。

1. 點擊「Kutools」>「插入」>「列出所有組合」，請參見截圖：

2. 在「列出所有組合」對話框中，按照以下示範所示進行操作：

3. 然後所有指定的值和分隔符都已列在對話框中，請參見截圖：

4. 然後點擊「確定」按鈕，將彈出一個提示框提醒您選擇一個單元格來輸出結果，請參見截圖：

5. 點擊「確定」，所有基於給定列表的可能組合都已生成到工作表中，如下方截圖所示：

更多相關文章：