如何在Excel中生成3列或多列的所有組合？

作者：小陽最後修改時間：2020-12-08

假設我有3列數據，現在，我想在這3列中生成或列出數據的所有組合，如下圖所示。您有什麼好的方法可以在Excel中解決此任務？

使用公式基於3列數據生成所有組合

使用VBA代碼基於3列或多列數據生成所有組合

使用超讚功能，根據3列或多列數據生成所有組合

使用公式基於3列數據生成所有組合

下面的長公式可以幫助列出3列的所有組合，請這樣做：

1。請單擊要輸出結果的單元格，然後將以下公式複制並粘貼到其中：

=IFERROR(INDEX($A$2:$A$4,INT((ROW(1:1)-1)/((COUNTA($B$2:$B$6)*(COUNTA($C$2:$C$5)))))+1)&"-"&INDEX($B$2:$B$6,MOD(INT((ROW(1:1)-1)/COUNTA($C$2:$C$5)),COUNTA($B$2:$B$6))+1)&"-"&INDEX($C$2:$C$5,MOD((ROW(1:1)-1),COUNTA($C$2:$C$5))+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列或多列的所有組合，請參見屏幕截圖：