Cum să enumerați toate combinațiile posibile dintr-o singură coloană în Excel?

Dacă doriți să returnați toate combinațiile posibile din datele dintr-o singură coloană pentru a obține rezultatul așa cum se arată în captura de ecran de mai jos, aveți vreo modalitate rapidă de a face față acestei sarcini în Excel?

Listați toate combinațiile posibile dintr-o singură coloană cu formule

Listați toate combinațiile posibile dintr-o singură coloană cu cod VBA

Listați toate combinațiile posibile dintr-o singură coloană cu formule

Următoarele formule matrice vă pot ajuta să realizați această sarcină, vă rugăm să faceți pas cu pas:

1. În primul rând, ar trebui să creați două celule de formulă de ajutor. În celula C1, introduceți formula de mai jos și apăsați Ctrl + Shift + Enter chei pentru a obține rezultatul:

2. În celula C2, introduceți următoarea formulă și apăsați Ctrl + Shift + Enter tastele împreună pentru a obține al doilea rezultat, vedeți captura de ecran:

3. Apoi, copiați și lipiți următoarea formulă în celula D2 și apăsați Ctrl + Shift + Enter tastele împreună pentru a obține primul rezultat, vezi captura de ecran:

4. Apoi, selectați această celulă de formulă și trageți mânerul de umplere în jos până când apar celule goale. Acum, puteți vedea că toate combinațiile de date ale coloanei specificate sunt afișate așa cum se arată mai jos:

Deblocați Excel Magic cu Kutools AI

• Execuție inteligentă: Efectuați operații cu celule, analizați date și creați diagrame, toate conduse de comenzi simple.
• Formule personalizate: generați formule personalizate pentru a vă simplifica fluxurile de lucru.
• Codare VBA: Scrieți și implementați codul VBA fără efort.
• Interpretarea formulei: Înțelegeți cu ușurință formulele complexe.
• Traducere text: spargeți barierele lingvistice din foile de calcul.

Îmbunătățiți-vă capabilitățile Excel cu instrumente bazate pe inteligență artificială. Descarcă acum și experimentați eficiența ca niciodată!

Listați toate combinațiile posibile dintr-o singură coloană cu cod VBA

Formulele de mai sus sunt disponibile numai pentru versiunile mai noi de Excel, dacă aveți versiuni anterioare de Excel, următorul cod VBA vă poate face o favoare.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și inserați codul VBA de mai jos în fereastră.

Cod VBA: enumerați toate combinațiile posibile dintr-o singură coloană

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. Și apoi, apăsați F5 tasta pentru a executa acest cod. Toate combinațiile dintr-o singură coloană sunt listate după cum se arată mai jos: