Hoe geef je alle mogelijke combinaties uit één kolom in Excel weer?
Als u alle mogelijke combinaties uit gegevens in één kolom wilt genereren om het resultaat zoals op de afbeelding hieronder te verkrijgen, zijn er dan snelle manieren om deze taak in Excel uit te voeren?
Alle mogelijke combinaties uit één kolom weergeven met formules
Alle mogelijke combinaties uit één kolom weergeven met VBA-code
Alle mogelijke combinaties uit één kolom weergeven met formules
De volgende matrixformules helpen u bij deze taak. Volg de onderstaande stappen:
1. Maak eerst twee hulpformulecellen aan. Voer in cel C1 de onderstaande formule in en druk op Ctrl + Shift + Enter om het resultaat te verkrijgen:
2. Voer in cel C2 de volgende formule in en druk tegelijkertijd op Ctrl + Shift + Enter om het tweede resultaat te verkrijgen (zie afbeelding):
3. Plak vervolgens de volgende formule in cel D2 en druk tegelijkertijd op Ctrl + Shift + Enter om het eerste resultaat te verkrijgen (zie afbeelding):
4. Selecteer daarna de formulecel en sleep de vulgreep naar beneden totdat er lege cellen verschijnen. Zo ziet u alle combinaties van de opgegeven kolomgegevens, zoals in de onderstaande demo wordt getoond:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Alle mogelijke combinaties uit één kolom weergeven met VBA-code
De bovenstaande formules zijn uitsluitend beschikbaar in nieuwere versies van Excel. Hebt u een oudere versie? Dan helpt de volgende VBA-code u verder.
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik vervolgens op Invoegen > Module en kopieer de onderstaande VBA-code naar het venster.
VBA-code: Alle mogelijke combinaties uit één kolom weergeven
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: is de lijst met gegevens die u wilt gebruiken;
- C1: is de uitvoercel;
- ,: het scheidingsteken dat wordt gebruikt om de combinaties te scheiden.
3. Druk daarna op de toets F5 om deze code uit te voeren. Alle combinaties uit de enkele kolom worden weergegeven, zoals op de onderstaande afbeelding:
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins