Como dividir uma coluna longa em várias colunas no Excel?
Divida a coluna longa em várias colunas com VBA
Divida uma coluna longa em várias colunas com o Kutools para Excel
Divida a coluna longa em várias colunas com VBA
1. Pressione Alt + F11 chaves juntas para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Módulo e copie o seguinte código VBA para a janela aberta.
VBA: divida a coluna longa em várias colunas.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. Clique Execute ou pressione F5 para executar o VBA e uma caixa de diálogo apareceu para selecionar a lista de dados e clique em OK para ir para especificar quantas linhas em uma coluna você precisa na próxima caixa de diálogo, a seguir clique OK e selecione uma célula para produzir o resultado. Veja as capturas de tela:
4. Clique OK, então você pode ver que a coluna longa é dividida em várias colunas e cada coluna tem 15 células.
Divida uma coluna longa em várias colunas com o Kutools para Excel
Talvez alguns de vocês não gostem de usar código VBA, felizmente, você pode usar o Faixa de transformação utilidade de Kutools for Excel para converter rápida e facilmente uma coluna longa em um número fixo de colunas.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
Depois de instalar Kutools para Excel, faça o seguinte:(Baixe gratuitamente o Kutools para Excel agora!)
1. Selecione os dados da coluna que deseja dividir e clique em Kutools > Variação > Faixa de transformação. Veja a imagem:
2. Na caixa de diálogo exibida, verifique Coluna única para intervalo opção, então verifique Valor fixo opção e digite o número de colunas que você precisa na caixa de texto. Veja a imagem:
3. Clique Ok e selecione uma única célula para colocar os dados divididos. Veja a imagem:
4. Clique OK para terminar as operações. Agora, os dados da coluna longa foram divididos em três colunas.
É mais fácil do que o código VBA? Com TIntervalo de ransform utilitário, você pode converter uma linha em intervalo, um intervalo em uma linha ou uma coluna.
Transponha coluna / linha única para um intervalo ou vice-versa
Divida rapidamente uma célula em colunas ou linhas com base no delimitador
|
No Excel, dividir uma célula em colunas é tedioso com o assistente passo a passo. Mas com Kutools for Excel's Dividir células utilitário, você pode: 1, converter uma célula em colunas ou linhas com base no delimitador; 2, converter string em texto e número; 3, converta string com base na largura específica, com cliques. Clique para um teste gratuito completo de 30 dias! |
Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
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!