Jak vypsat nebo vygenerovat všechny možné kombinace v aplikaci Excel?

Při práci s daty v Excelu můžete narazit na situace, kdy potřebujete vygenerovat všechny možné kombinace z více seznamů. Pokud máte například dva nebo více sloupců hodnot, ruční vypisování každé kombinace může být zdlouhavé a náchylné k chybám, zvláště když počet hodnot roste. V této příručce prozkoumáme různé techniky pro rychlý seznam nebo generování všech možných kombinací v Excelu.

Seznamujte nebo generujte všechny možné kombinace ze dvou seznamů pomocí vzorce

Seznamujte nebo generujte všechny možné kombinace ze tří nebo více seznamů pomocí kódu VBA

Vypište nebo vygenerujte všechny možné kombinace z více seznamů pomocí Kutools for Excel

Seznamujte nebo generujte všechny možné kombinace ze dvou seznamů pomocí vzorce

Následující dlouhý vzorec vám pomůže rychle vypsat všechny možné kombinace hodnot dvou seznamů, postupujte takto:

1. Zadejte nebo zkopírujte níže uvedený vzorec do prázdné buňky, v tomto případě jej vložím do buňky D2 a poté stisknutím klávesy "Enter" získáte výsledek, viz snímek obrazovky:

=IF(ROW()-ROW($D$2)+1>COUNTA($A$2:$A$5)*COUNTA($B$2:$B$4),"",INDEX($A$2:$A$5,INT((ROW()-ROW($D$2))/COUNTA($B$2:$B$4)+1))&"-"&INDEX($B$2:$B$4,MOD(ROW()-ROW($D$2),COUNTA($B$2:$B$4))+1))

2. Poté vyberte buňku D2 a přetáhněte úchyt výplně dolů, dokud se neobjeví prázdné buňky. Všechny možné kombinace budou uvedeny na základě dvou seznamů hodnot. Viz snímek obrazovky:

Seznamujte nebo generujte všechny možné kombinace ze tří nebo více seznamů pomocí kódu VBA

Pokud je použití výše uvedeného vzorce obtížné, zejména u více sloupců dat, může být jeho úprava náročná. V takových případech poskytuje kód VBA rychlejší a flexibilnější řešení.

1. Podržením kláves "ALT + F11" otevřete okno "Microsoft Visual Basic for Applications".

2. Klikněte na "Vložit" > "Modul" a vložte následující kód do okna "Modul".

Kód VBA: Vygenerujte všechny kombinace 3 nebo více sloupců

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:A5")  'First column data
Set xDRg2 = Range("B2:B4")  'Second column data
Set xDRg3 = Range("C2:C4")  '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

3. Poté stisknutím klávesy „F5“ spusťte tento kód a všechny kombinace 3 sloupců budou vygenerovány najednou, viz snímek obrazovky:

Vypište nebo vygenerujte všechny možné kombinace z více seznamů pomocí Kutools for Excel

Pokud existuje více seznamů hodnot, které musí obsahovat všechny možné kombinace, může být pro vás obtížné upravit kód. Zde mohu doporučit výkonný nástroj - "Kutools for Excel", obsahuje praktickou funkci "Vypsat všechny kombinace", která dokáže rychle vypsat všechny možné kombinace na základě zadaných seznamů dat.

1. Klikněte na „Kutools„> Vložit“ > „Vypsat všechny kombinace“, viz snímek obrazovky:

2. V dialogovém okně "Seznam všech kombinací" proveďte operace, jak je ukázáno níže:

3. Poté byly všechny zadané hodnoty a oddělovače uvedeny v dialogovém okně, viz snímek obrazovky:

4. A poté klikněte na tlačítko "OK" a objeví se okno s výzvou, které vám připomene, že vyberete buňku pro výstup výsledku, viz snímek obrazovky:

5. Klikněte na „OK“, všechny možné kombinace založené na daných seznamech byly vygenerovány do listu, jak je znázorněno na následujícím snímku obrazovky:

Více relativních článků: