Como dividir uma longa lista em grupos iguais no Excel?
Se você tem uma longa lista de dados que precisam ser divididos em vários grupos iguais, como mostrado a seguir, como você pode lidar com essa tarefa de forma rápida e fácil no Excel?
Divida uma longa lista em vários grupos iguais com o código VBA
Divida uma longa lista em vários grupos iguais com o Kutools para Excel
Divida uma longa lista em vários grupos iguais com o código VBA
Com exceção de copiar e colar os dados um por um, o seguinte código VBA também pode lhe fazer um favor, siga as seguintes etapas:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: divida uma longa lista 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 Sub
3. Então aperte F5 para executar este código e, na caixa exibida, selecione a coluna que deseja dividir em vários grupos, consulte a captura de tela:
4. E clique em OK botão e selecione uma célula onde você deseja localizar o resultado na seguinte caixa de prompt, consulte a captura de tela:
5. Clique OKe insira o número de células que deseja dividir por coluna na caixa de prompt, consulte a captura de tela:
6. Finalmente, clique em OK para terminar o código, e os dados da lista selecionada foram divididos em vários grupos iguais conforme necessário, consulte a captura de tela:
Divida uma longa lista em vários grupos iguais com o Kutools para Excel
Se você instalou Kutools for Excel, Com o seu Faixa de transformação recurso, você pode dividir rapidamente uma longa lista em várias colunas e linhas, além disso, você também pode combinar várias colunas em uma longa lista.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte:
1. Selecione a longa lista que deseja dividir e clique em Kutools > Variação > Faixa de transformação, veja a captura de tela:
2. No Faixa de transformação caixa de diálogo, selecione Coluna única para intervalo sob a Tipo de transformação seção e, em seguida, verifique Valor fixo e especifique o número de células por linha na caixa, veja a captura de tela:
3. Então clique Oke selecione uma célula onde deseja localizar o resultado na caixa de prompt, veja a captura de tela:
4. E clique em OK botão, os dados na lista foram divididos em vários grupos iguais, conforme necessário.
Baixe e teste grátis Kutools para Excel agora!
Demonstração: divida uma longa lista em vários grupos iguais com o Kutools para Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!