Como listar todas as combinações possíveis de uma única coluna no Excel?

Se você deseja retornar todas as combinações possíveis de uma única coluna para obter o resultado conforme mostrado na captura de tela abaixo, você tem algum método rápido para lidar com essa tarefa no Excel?

Listar todas as combinações possíveis de uma única coluna com fórmulas

Listar todas as combinações possíveis de uma única coluna com código VBA

Listar todas as combinações possíveis de uma única coluna com fórmulas

As seguintes fórmulas matriciais podem ajudá-lo a realizar essa tarefa; por favor, siga passo a passo:

1. Primeiro, você deve criar duas células auxiliares de fórmula. Na célula C1, insira a fórmula abaixo e pressione simultaneamente Ctrl + Shift + Enter para obter o resultado:

2. Na célula C2, insira a seguinte fórmula e pressione simultaneamente Ctrl + Shift + Enter para obter o segundo resultado, veja a captura de tela:

3. Em seguida, copie e cole a seguinte fórmula na célula D2 e pressione simultaneamente Ctrl + Shift + Enter para obter o primeiro resultado, veja a captura de tela:

4. Depois disso, selecione esta célula de fórmula e arraste a alça de preenchimento para baixo até que células em branco apareçam. Agora, você pode ver todas as combinações dos dados da coluna especificada exibidas conforme mostrado na demonstração abaixo:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Listar todas as combinações possíveis de uma única coluna com código VBA

As fórmulas acima estão disponíveis apenas para versões mais recentes do Excel; se você tiver versões anteriores do Excel, o seguinte código VBA pode ajudá-lo.

1. Pressione simultaneamente Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Em seguida, clique em Inserir > Módulo, copie e cole o código VBA abaixo na janela.

Código VBA: Listar todas as combinações possíveis de uma única coluna

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. E então, pressione a tecla F5 para executar este código. Todas as combinações da coluna única são listadas conforme mostrado na captura de tela abaixo: