Wie listet man alle möglichen Kombinationen aus einer einzelnen Spalte in Excel auf?
Wenn Sie alle möglichen Kombinationen aus den Daten einer einzelnen Spalte zurückgeben möchten, um das Ergebnis wie im unten gezeigten Screenshot zu erhalten, haben Sie schnelle Möglichkeiten, diese Aufgabe in Excel zu bewältigen?
Alle möglichen Kombinationen aus einer einzelnen Spalte mit Formeln auflisten
Alle möglichen Kombinationen aus einer einzelnen Spalte mit VBA-Code auflisten
Alle möglichen Kombinationen aus einer einzelnen Spalte mit Formeln auflisten
Die folgenden Array-Formeln können Ihnen helfen, diese Aufgabe zu erreichen. Bitte gehen Sie Schritt für Schritt vor:
1. Zuerst sollten Sie zwei Hilfsformelzellen erstellen. Geben Sie in Zelle C1 die folgende Formel ein und drücken Sie die Tasten Ctrl + Shift + Enter, um das Ergebnis zu erhalten:
2. Geben Sie in Zelle C2 die folgende Formel ein und drücken Sie die Tasten Ctrl + Shift + Enter gleichzeitig, um das zweite Ergebnis zu erhalten, siehe Screenshot:
3. Kopieren Sie dann die folgende Formel in Zelle D2 und drücken Sie die Tasten Ctrl + Shift + Enter gleichzeitig, um das erste Ergebnis zu erhalten, siehe Screenshot:
4. Wählen Sie dann diese Formelezelle aus und ziehen Sie den Füllgriff nach unten, bis leere Zellen erscheinen. Jetzt können Sie sehen, dass alle Kombinationen der angegebenen Spaltendaten wie im unten gezeigten Beispiel angezeigt werden:
Entfesseln Sie die Magie von Excel mit Kutools AI
- Intelligente Ausführung: Führen Sie Zellenoperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles angetrieben durch einfache Befehle.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe zu optimieren.
- VBA-Codierung: Schreiben und implementieren Sie VBA-Code mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln mit Leichtigkeit.
- Textübersetzung: Überwinden Sie Sprachbarrieren in Ihren Tabellen.
Alle möglichen Kombinationen aus einer einzelnen Spalte mit VBA-Code auflisten
Die obigen Formeln sind nur für neuere Excel-Versionen verfügbar. Wenn Sie frühere Excel-Versionen haben, kann Ihnen der folgende VBA-Code helfen.
1. Drücken Sie gleichzeitig die Tasten Alt+ F11, um das Microsoft Visual Basic for Applications Fenster zu öffnen.
2. Klicken Sie dann auf Einfügen > Modul, kopieren Sie den unten stehenden VBA-Code und fügen Sie ihn in das Fenster ein.
VBA-Code: Alle möglichen Kombinationen aus einer einzelnen Spalte auflisten
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: ist die Liste der Daten, die Sie verwenden möchten;
- C1: ist die Ausgabenzelle;
- ,: das Trennzeichen, um die Kombinationen zu trennen.
3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Alle Kombinationen aus der einzelnen Spalte werden wie im unten gezeigten Screenshot aufgelistet:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins