Hoe alle mogelijke combinaties uit één kolom in Excel te lijsten?

Als u alle mogelijke combinaties uit gegevens in één kolom wilt weergeven om het resultaat te krijgen zoals in de onderstaande schermafbeelding, heeft u dan een snelle manier om deze taak in Excel af te handelen?

Lijst alle mogelijke combinaties uit één kolom met formules

Lijst alle mogelijke combinaties uit één kolom met VBA-code

Lijst alle mogelijke combinaties uit één kolom met formules

De volgende matrixformules kunnen u helpen bij het uitvoeren van deze taak. Volg deze stappen stap voor stap:

1. Maak eerst twee hulpformulecellen aan. Voer in cel C1 de onderstaande formule in en druk op Ctrl + Shift + Enter om het resultaat te krijgen:

2. Voer in cel C2 de volgende formule in en druk tegelijkertijd op Ctrl + Shift + Enter om het tweede resultaat te krijgen, zie schermafbeelding:

3. Kopieer en plak vervolgens de volgende formule in cel D2 en druk tegelijkertijd op Ctrl + Shift + Enter om het eerste resultaat te krijgen, zie schermafbeelding:

4. Selecteer vervolgens deze formulecel en sleep de vulgreep omlaag totdat lege cellen verschijnen. Nu kunt u zien dat alle combinaties van de opgegeven kolomgegevens worden weergegeven zoals in de onderstaande demo wordt getoond:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Lijst alle mogelijke combinaties uit één kolom met VBA-code

De bovenstaande formules zijn alleen beschikbaar voor nieuwere Excel-versies. Als u oudere Excel-versies heeft, kan de volgende VBA-code u helpen.

1. Druk gelijktijdig op Alt+ F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module, kopieer en plak de onderstaande VBA-code in het venster.

VBA-code: Lijst alle mogelijke combinaties uit één kolom

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

3. Druk vervolgens op F5 om deze code uit te voeren. Alle combinaties uit de enkele kolom worden weergegeven zoals in de onderstaande schermafbeelding wordt getoond: