如何从 Excel 的单列中列出所有可能的组合？

备注：在此公式中， A2：A6 是您要列出其组合的单元格列表。

备注：在此公式中， A2：A6 是您要列出其组合的单元格列表， C2 单元格是否包含您在步骤 1 中创建的公式。

备注：在此公式中， A2：A6 是您要列出其组合的单元格列表， C2 单元格是否包含您在步骤 1 中创建的公式， C3 是具有您在步骤 2 中创建的公式的单元格， + 字符是分隔组合的分隔符，您可以根据需要更改它们。

备注：此公式仅适用于 Office 2019、365 及更高版本。

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: 是输出单元格； ,: 分隔组合的分隔符。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！