如何在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. 单击“确定”，所有基于给定列表的可能组合都已生成到工作表中，如下图所示：

更多相关文章：