Note: The other languages of the website are Google-translated. Back to English

Wie listet man alle möglichen Kombinationen aus einer einzelnen Spalte in Excel auf?

Wenn Sie alle möglichen Kombinationen aus Einzelspaltendaten zurückgeben möchten, um das Ergebnis wie im folgenden Screenshot zu erhalten, haben Sie eine schnelle Möglichkeit, diese Aufgabe in Excel zu erledigen?

Listen Sie alle möglichen Kombinationen aus einer einzelnen Spalte mit Formeln auf

Listen Sie alle möglichen Kombinationen aus einer einzelnen Spalte mit VBA-Code auf


Listen Sie alle möglichen Kombinationen aus einer einzelnen Spalte mit Formeln auf

Die folgenden Array-Formeln können Ihnen helfen, diese Aufgabe zu erfüllen, 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 Strg + Umschalt + Enter Tasten, um das Ergebnis zu erhalten:

=MAX(LEN(A2:A6))
Hinweis: In dieser Formel A2: A6 ist die Liste der Zellen, deren Kombinationen Sie auflisten möchten.

2. Geben Sie in Zelle C2 die folgende Formel ein und drücken Sie Strg + Umschalt + Enter Tasten zusammen, um das zweite Ergebnis zu erhalten, siehe Screenshot:

=CONCAT(A2:A6&REPT(" ",C2-LEN(A2:A6)))
Hinweis: In dieser Formel A2: A6 ist die Liste der Zellen, deren Kombinationen Sie auflisten möchten, C2 ist die Zelle, die die Formel enthält, die Sie in Schritt 1 erstellt haben.

3. Kopieren Sie dann die folgende Formel, fügen Sie sie in Zelle D2 ein und drücken Sie Strg + Umschalt + Enter Tasten zusammen, um das erste Ergebnis zu erhalten, siehe Screenshot:

=IF(ROW()>2^(COUNTA(A$2:A$6)),"",TEXTJOIN(" + ",TRUE,IF(MID(TEXT(DEC2BIN(ROW()-1),REPT("0",COUNTA($A$2:$A$6))),ROW(INDIRECT("1:"&COUNTA($A$2:$A$6))),1)+0,TRIM(MID($C$3,(ROW(INDIRECT("1:"&COUNTA($A$2:$A$6)))-1)*$C$2+1,$C$2)),"")))
Hinweis: In dieser Formel A2: A6 ist die Liste der Zellen, deren Kombinationen Sie auflisten möchten, C2 enthält die Zelle die Formel, die Sie in Schritt 1 erstellt haben, C3 ist die Zelle mit der Formel, die Sie in Schritt 2 erstellt haben, die + Das Zeichen ist das Trennzeichen zum Trennen der Kombinationen. Sie können sie nach Bedarf ändern.

4. Wählen Sie dann diese Formelzelle aus und ziehen Sie den Füllgriff nach unten, bis leere Zellen angezeigt werden. Jetzt können Sie sehen, dass alle Kombinationen der angegebenen Spaltendaten wie unten gezeigt angezeigt werden:

Hinweis: Diese Formel ist nur in Office 2019, 365 und späteren Versionen verfügbar.

Listen Sie alle möglichen Kombinationen aus einer einzelnen Spalte mit VBA-Code auf

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 einen Gefallen tun.

1. Drücken Sie Alt + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Dann klick Insert > Modul, kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.

VBA-Code: Listen Sie alle möglichen Kombinationen aus einer einzelnen Spalte auf

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
Hinweis: Im obigen Code:
  • A2: A6: ist die Liste der Daten, die Sie verwenden möchten;
  • C1: ist die Ausgabezelle;
  • ,: das Trennzeichen zum Trennen der Kombinationen.

3. Und dann drücken F5 Taste, um diesen Code auszuführen. Alle Kombinationen aus der einzelnen Spalte werden wie im folgenden Screenshot gezeigt aufgelistet:


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte