Como gerar todas as combinações de 3 ou várias colunas no Excel?

Suponha que eu tenha 3 colunas de dados e quero gerar ou listar todas as combinações dos dados nessas 3 colunas, conforme mostrado na captura de tela abaixo. Você conhece algum bom método para resolver essa tarefa no Excel?

Gerar todas as combinações com base em 3 colunas de dados usando uma fórmula

Gerar todas as combinações com base em 3 ou várias colunas de dados usando código VBA

Gerar todas as combinações com base em 3 ou várias colunas de dados usando um recurso incrível

Gerar todas as combinações com base em 3 colunas de dados usando uma fórmula

A seguinte fórmula longa pode ajudar a listar todas as combinações de 3 colunas; por favor, faça o seguinte:

1. Clique em uma célula onde você deseja exibir o resultado e, em seguida, copie e cole a fórmula abaixo nela:

Observação: Nesta fórmula: A2:A4, B2:B6, C2:C5 são os intervalos de dados que você deseja usar.

2. Em seguida, arraste a alça de preenchimento para baixo até que células em branco sejam exibidas, o que significa que todas as combinações das 3 colunas foram listadas, veja a captura de tela:

Gerar todas as combinações com base em 3 ou várias colunas de dados usando código VBA

A fórmula longa acima pode ser um pouco difícil de usar; se houver várias colunas de dados para usar, será complicado modificá-la. Aqui, vou introduzir um código VBA para lidar com isso rapidamente.

1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Gerar todas as combinações de 3 ou várias colunas

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

Observação: No código acima, A2:A4, B2:B6, C2:C5 são o intervalo de dados que você deseja usar, E2 é a célula de saída onde você quer localizar os resultados. Se você deseja obter todas as combinações de mais colunas, altere e adicione outros parâmetros ao código conforme necessário.

3. Depois, pressione a tecla F5 para executar este código, e todas as combinações das 3 ou várias colunas serão geradas de uma vez, veja a captura de tela:

Gerar todas as combinações com base em 3 ou várias colunas de dados usando um recurso incrível

Se você tem o Kutools para Excel, com seu poderoso recurso Listar Todas as Combinações, você pode listar todas as combinações de várias colunas rapidamente e facilmente.

1. Clique em Kutools > Inserir > Listar Todas as Combinações, veja a captura de tela:

2. Na caixa de diálogo Listar Todas as Combinações, especifique os dados das colunas e os delimitadores para listar as combinações conforme mostrado na captura de tela abaixo:

3. Após configurar os dados e o delimitador, clique no botão Ok; na próxima caixa de prompt, selecione uma célula para localizar o resultado, veja a captura de tela:

4. E então, clique no botão OK, e todas as combinações serão geradas imediatamente, conforme mostrado na captura de tela abaixo: