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.
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
- A2:A6: is de lijst met gegevens die u wilt gebruiken;
- C1: is de uitvoercel;
- ,: het scheidingsteken om de combinaties te scheiden.
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:
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen