Jak vypsat všechny možné kombinace z jednoho sloupce v Excelu?

Pokud chcete vrátit všechny možné kombinace z dat jednoho sloupce, abyste získali výsledek, jak je zobrazen níže na snímku obrazovky, máte nějaké rychlé způsoby, jak se s tímto úkolem v Excelu vypořádat?

Vypište všechny možné kombinace z jednoho sloupce se vzorci

Seznam všech možných kombinací z jednoho sloupce s kódem VBA

Vypište všechny možné kombinace z jednoho sloupce se vzorci

Následující maticové vzorce vám mohou pomoci dosáhnout tohoto úkolu, proveďte prosím krok za krokem:

1. Nejprve byste měli vytvořit dvě buňky pomocného vzorce. Do buňky C1 zadejte níže uvedený vzorec a stiskněte Ctrl + Shift + Enter klíče k získání výsledku:

2. Do buňky C2 zadejte následující vzorec a stiskněte Ctrl + Shift + Enter kláves dohromady, abyste získali druhý výsledek, viz snímek obrazovky:

3. Poté zkopírujte a vložte následující vzorec do buňky D2 a stiskněte Ctrl + Shift + Enter společně získáte první výsledek, viz screenshot:

4. A pak vyberte tuto buňku vzorce a přetáhněte úchyt výplně dolů, dokud se neobjeví prázdné buňky. Nyní můžete vidět, že všechny kombinace dat zadaných sloupců jsou zobrazeny, jak je ukázáno níže:

Odemkněte Excel Magic pomocí Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Seznam všech možných kombinací z jednoho sloupce s kódem VBA

Výše uvedené vzorce jsou k dispozici pouze pro novější verze aplikace Excel, pokud máte dřívější verze aplikace Excel, může vám pomoci následující kód VBA.

1. lis Alt + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. Potom klepněte na tlačítko Vložit > Modul, zkopírujte a vložte níže uvedený kód VBA do okna.

Kód VBA: Seznam všech možných kombinací z jednoho sloupce

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

3. A pak stiskněte F5 klíč k provedení tohoto kódu. Všechny kombinace z jednoho sloupce jsou uvedeny jako níže uvedený snímek obrazovky: