Como gerar ou listar todas as permutações possíveis no Excel?
Por exemplo, tenho três caracteres XYZ e agora quero listar todas as permutações possíveis com base nesses três caracteres para obter seis resultados diferentes, como este: XYZ, XZY, YXZ, YZX, ZXY e ZYX. No Excel, como você poderia gerar ou listar rapidamente todas as permutações com base em um número diferente de caracteres?
Gerar ou listar todas as permutações possíveis com base em caracteres usando código VBA
Gerar ou listar todas as permutações possíveis com base em caracteres usando código VBA
O seguinte código VBA pode ajudá-lo a listar todas as permutações com base no número específico de letras que você possui; por favor, faça o seguinte:
1. Pressione e segure 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: Liste todas as permutações possíveis no Excel
Sub GetString()
'Updateby Extendoffice
Dim xStr As String
Dim FRow As Long
Dim xScreen As Boolean
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xStr = Application.InputBox("Enter text to permute:", "Kutools for Excel", , , , , , 2)
If Len(xStr) < 2 Then Exit Sub
If Len(xStr) >= 8 Then
MsgBox "Too many permutations!", vbInformation, "Kutools for Excel"
Exit Sub
Else
ActiveSheet.Columns(1).Clear
FRow = 1
Call GetPermutation("", xStr, FRow)
End If
Application.ScreenUpdating = xScreen
End Sub
Sub GetPermutation(Str1 As String, Str2 As String, ByRef xRow As Long)
Dim i As Integer, xLen As Integer
xLen = Len(Str2)
If xLen < 2 Then
Range("A" & xRow) = Str1 & Str2
xRow = xRow + 1
Else
For i = 1 To xLen
Call GetPermutation(Str1 + Mid(Str2, i, 1), Left(Str2, i - 1) + Right(Str2, xLen - i), xRow)
Next
End If
End Sub
3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso será exibida para lembrá-lo de inserir os caracteres que deseja listar todas as permutações; veja a captura de tela:
4. Após inserir os caracteres e clicar no botão OK, todas as permutações possíveis serão exibidas na coluna A da planilha ativa. Veja a captura de tela:
Observação: Se o comprimento dos caracteres inseridos for igual ou maior que 8 caracteres, esse código não funcionará porque há muitas permutações.
Listar ou gerar todas as combinações possíveis de várias colunas
Se você precisar gerar todas as combinações possíveis com base nos dados de várias colunas, talvez não haja uma boa maneira de lidar com essa tarefa. Mas o utilitário Listar Todas as Combinações do Kutools para Excel pode ajudá-lo a listar todas as combinações possíveis rapidamente e facilmente. Clique para baixar Kutools para Excel!
Kutools para Excel: com mais de 300 complementos úteis para o Excel, grátis para experimentar sem limitação por 30 dias. Baixe e experimente agora gratuitamente!
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins