Wie generiert man alle Kombinationen von 3 oder mehreren Spalten in Excel?
Angenommen, ich habe 3 Spalten mit Daten und möchte alle Kombinationen der Daten in diesen 3 Spalten wie im folgenden Screenshot gezeigt generieren oder auflisten. Haben Sie gute Methoden zur Lösung dieser Aufgabe in Excel?
Generieren Sie alle Kombinationen basierend auf 3 Spalten Daten mithilfe einer Formel.
Generieren Sie alle Kombinationen basierend auf 3 oder mehreren Spalten Daten mithilfe von VBA-Code.
Generieren Sie alle Kombinationen basierend auf 3 Spalten Daten mithilfe einer Formel.
Die folgende lange Formel kann helfen, alle Kombinationen von 3 Spalten aufzulisten. Gehen Sie bitte wie folgt vor:
1. Klicken Sie auf eine Zelle, in der Sie das Ergebnis ausgeben möchten, und kopieren Sie dann die folgende Formel hinein:
Hinweis: In dieser Formel sind A2:A4, B2:B6, C2:C5 die Datenbereiche, die Sie verwenden möchten.
2. Ziehen Sie dann den Ausfüllkursor nach unten zu den Zellen, bis leere Zellen angezeigt werden. Das bedeutet, dass alle Kombinationen der 3 Spalten aufgelistet wurden. Siehe Screenshot:
Generieren Sie alle Kombinationen basierend auf 3 oder mehreren Spalten Daten mithilfe von VBA-Code.
Die obige lange Formel kann etwas schwierig zu verwenden sein. Wenn mehrere Spalten bearbeitet werden müssen, wird es mühsam, sie zu ändern. Hier werde ich einen VBA-Code vorstellen, um dies schnell zu erledigen.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Generieren Sie alle Kombinationen von 3 oder mehreren Spalten.
Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3 As Range
Dim xRg As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3 As Integer
Dim xSV1, xSV2, xSV3 As String
Set xDRg1 = Range("A2:A4") 'First column data
Set xDRg2 = Range("B2:B6") 'Second column data
Set xDRg3 = Range("C2:C5") 'Third column data
xStr = "-" 'Separator
Set xRg = Range("E2") 'Output cell
For xFN1 = 1 To xDRg1.Count
xSV1 = xDRg1.Item(xFN1).Text
For xFN2 = 1 To xDRg2.Count
xSV2 = xDRg2.Item(xFN2).Text
For xFN3 = 1 To xDRg3.Count
xSV3 = xDRg3.Item(xFN3).Text
xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
Set xRg = xRg.Offset(1, 0)
Next
Next
Next
End Sub
Hinweis: Im obigen Code sind A2:A4, B2:B6, C2:C5 die Datenbereiche, die Sie verwenden möchten, und E2 ist die Ausgabezelle, in der Sie die Ergebnisse platzieren möchten. Wenn Sie alle Kombinationen von mehr Spalten erhalten möchten, ändern Sie den Code entsprechend und fügen Sie andere Parameter hinzu.
3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und alle Kombinationen der 3 oder mehreren Spalten werden sofort generiert. Siehe Screenshot:
Generieren Sie alle Kombinationen basierend auf 3 oder mehreren Spalten Daten mithilfe eines fantastischen Features.
Wenn Sie Kutools für Excel haben, können Sie mit dem leistungsstarken Feature „Alle Kombinationen auflisten“ alle Kombinationen mehrerer Spalten schnell und einfach auflisten.
1. Klicken Sie auf Kutools > Einfügen > Alle Kombinationen auflisten. Siehe Screenshot:
2. Geben Sie im Dialogfeld „ Alle Kombinationen auflisten“ die Spaltendaten und Trennzeichen zur Auflistung der Kombinationen wie im folgenden Screenshot gezeigt an:
3. Nachdem Sie die Daten und das Trennzeichen festgelegt haben, klicken Sie auf die Schaltfläche OK. Wählen Sie im nächsten Popup-Fenster eine Zelle aus, um das Ergebnis zu platzieren. Siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche OK, und alle Kombinationen werden sofort generiert, wie im folgenden Screenshot gezeigt:
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!