Como dividir uma lista longa em grupos iguais no Excel?
Ao trabalhar com conjuntos de dados extensos no Excel, poderá deparar-se com situações em que precisa dividir uma lista longa de itens em vários grupos iguais — por exemplo, para distribuir respostas a inquéritos, criar atribuições equilibradas ou organizar equipas para um projeto. Fazer essa divisão manualmente pode ser moroso e propenso a erros, especialmente com volumes elevados de dados. Dividir listas de forma eficiente em grupos iguais agiliza o seu fluxo de trabalho, melhora a organização dos dados e reduz significativamente o risco de erros.
O Excel oferece vários métodos práticos para alcançar este objetivo — desde a automatização com VBA e add-ins úteis, como o Kutools para Excel, até técnicas baseadas em fórmulas. Cada abordagem apresenta vantagens específicas e adapta-se a diferentes níveis de competência e cenários.
Divida uma lista longa em vários grupos iguais com código VBA
Divida uma lista longa em vários grupos iguais com Kutools para Excel
Divida uma lista longa em vários grupos iguais com Fórmula do Excel
Divida uma lista longa em vários grupos iguais com código VBA
Além da abordagem morosa de copiar e colar dados grupo a grupo, o VBA permite automatizar esta tarefa de forma rápida e precisa. Veja abaixo um guia passo a passo para dividir a sua lista em grupos iguais utilizando VBA:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do editor do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e, de seguida, cole o seguinte código VBA na janela do novo Módulo criado.
Código VBA: Dividir uma lista longa em vários grupos iguais
Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xOutArr As Variant
Dim I As Long, K As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
If I < 1 Then
MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
Exit Sub
End If
ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
For K = 0 To xRg.Rows.Count - 1
xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
Next
xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub3. Prima F5 ou clique no botão Executar para executar o código. Na caixa de entrada que aparece, selecione a coluna de dados que pretende dividir em grupos.
4. Clique em OK e, de seguida, selecione a célula inicial onde pretende que os resultados agrupados sejam colocados na próxima mensagem.
5. Clique em OK e introduza o número de itens que pretende em cada grupo (ou seja, em cada coluna) na caixa de diálogo.
6. Finalmente, clique em OK para concluir o processo. O código dividirá automaticamente a sua lista selecionada em várias colunas, cada uma com o número especificado de itens. Nota: se a lista não puder ser dividida exatamente em grupos iguais, o último grupo poderá conter menos itens.
A solução VBA é ideal para utilizadores à vontade com macros e que pretendem automatizar tarefas para uso repetido. Uma das suas vantagens é a flexibilidade: permite executar o script com diferentes tamanhos de grupo sem necessidade de configuração adicional. Contudo, como envolve código, poderá não ser permitida em todos os ambientes profissionais, pelo que os utilizadores menos familiarizados com VBA devem guardar sempre o seu trabalho antes de executar macros.
Se a macro não for executada conforme esperado, verifique se as macros estão ativadas no Excel. Além disso, certifique-se de que seleciona uma única coluna contínua; caso contrário, o código pedir-lhe-á para voltar a selecionar o Intervalo de Dados. Se o comprimento da sua lista não for perfeitamente divisível pelo tamanho do grupo, o último grupo terá menos itens — um fator a considerar no seu planeamento de distribuição.
Divida uma lista longa em vários grupos iguais com Kutools para Excel
Se tiver instalado o Kutools para Excel, a sua funcionalidade Transformar Intervalo permite-lhe reorganizar rapidamente uma lista longa em vários grupos ao longo de colunas e linhas com apenas alguns cliques. Este método reduz erros manuais e torna a organização de dados muito mais eficiente. O Kutools adiciona uma camada profissional de usabilidade para utilizadores menos técnicos, com caixas de diálogo intuitivas e resultados fiáveis.
Após instalar o Kutools para Excel, siga os passos seguintes:
1. Selecione a lista longa que pretende dividir e, em seguida, aceda a Kutools > Intervalo > Transformar Intervalo.
2. Na caixa de diálogo Transformar Intervalo, escolha Coluna Única para Intervalo em Tipo de Transformação, marque Valor Fixo e introduza o número pretendido de itens por linha. (Por exemplo, se quiser quatro grupos, especifique o tamanho do grupo em conformidade.) Isto determina como a sua lista original será dividida.
3. Clique em OK e, de seguida, selecione uma célula na sua folha de cálculo onde pretende que o resultado agrupado comece.
4. Clique novamente em OK e o Kutools dividirá instantaneamente a sua lista longa em grupos de igual dimensão, de acordo com as suas definições.
Utilizar o Kutools para Excel é simples e reduz significativamente os erros manuais. Esta solução é ideal para utilizadores que preferem interfaces gráficas e realizam transformações frequentes de dados.
Transfira e experimente gratuitamente o Kutools para Excel agora!
Divida uma lista longa em vários grupos iguais com Fórmula do Excel
Se preferir não utilizar VBA nem add-ins, as fórmulas nativas do Excel permitem-lhe dividir a sua lista em grupos iguais de forma eficaz. Esta abordagem é ideal para quem procura uma solução portátil, compatível com todas as versões do Excel e segura para livros partilhados ou ambientes onde macros e add-ins de terceiros são restritos. O método funciona melhor quando os seus grupos são organizados lado a lado em colunas.
Eis como atribuir números de grupo a cada entrada, para que possa filtrar ou reorganizar facilmente a sua lista por grupos sem qualquer codificação:
1. Suponha que a sua lista longa esteja na coluna A, a partir da célula A2 para baixo. Na célula B2 (ao lado do primeiro item da lista), introduza a seguinte fórmula para atribuir números de grupo:
=MOD(ROW(A2)-ROW($A$2),4) +1Neste exemplo, «4» representa o número de grupos pretendido. Ajuste este valor caso deseje dividir a lista num número diferente de grupos. Esta fórmula percorre ciclicamente os números de grupo de 1 a 4.
2. Arraste a fórmula ao longo de toda a sua lista para atribuir números de grupo a todas as linhas. O resultado é uma coluna auxiliar que rotula cada linha de acordo com o seu grupo.
3. Para extrair ou exibir os grupos:
- Pode utilizar filtros: aplique um Filtro Automático à sua lista e filtre pelo número do grupo para separar rapidamente os registos.
- Pode copiar e colar cada grupo em locais separados ou usar fórmulas avançadas ou Tabelas Dinâmicas para reorganizar os itens conforme necessário.
Se estiver a utilizar o Excel com suporte para matrizes dinâmicas (Microsoft 365 e Excel 2021+), pode dividir automaticamente uma lista em colunas de igual dimensão com a função WRAPROWS. Imagine que a sua lista está em A2:A17 e que pretende dividi-la em 4 colunas (grupos):
=WRAPROWS(SORTBY(A2:A13, RANDARRAY(ROWS(A2:A13))), 4)Introduza esta fórmula na célula onde deseja iniciar a disposição em Novo Grupo e prima Enter. A função preencherá automaticamente as colunas com partes iguais da sua lista, de forma aleatória.
- Se a sua lista não puder ser dividida de forma perfeitamente uniforme, as colunas poderão apresentar o erro #N/D. Ajuste o número de grupos (neste caso, "4") conforme necessário para o seu cenário específico.
- Se houver células vazias no intervalo, estas serão tratadas como zero nos resultados agrupados.
As vantagens do método com fórmulas incluem total compatibilidade com livros partilhados e a capacidade de recalcular rapidamente os números de grupo sempre que os dados forem alterados. No entanto, escrever ou ajustar fórmulas exige grande atenção aos detalhes — intervalos incorretos ou contagens erradas de grupos podem originar entradas em falta ou duplicadas. Caso detete erros, verifique se o intervalo da sua lista está correto e se arrastou as fórmulas ao longo de toda a lista.
Como sugestão, faça sempre uma cópia de segurança antes de aplicar fórmulas nos dados originais e utilize Colar Especial > Valores após organizar os grupos, caso pretenda eliminar colunas auxiliares.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos