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:
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
- A2: A6: je seznam dat, která chcete použít;
- C1: je výstupní buňka;
- ,: oddělovač pro oddělení kombinací.
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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
