Como dividir uma coluna longa em várias colunas no Excel?
Dividir coluna longa em várias colunas com VBA
Dividir uma coluna longa em várias colunas com Kutools para Excel
Dividir coluna longa em várias colunas com VBA
1. Prima Alt + F11 em simultâneo para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e copie o seguinte código VBA para a janela que surge.
VBA: Divida uma 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 no botão Executar ou prima a tecla F5 para executar o VBA. Surge uma caixa de diálogo para selecionar a lista de dados; clique em OK, especifique na caixa de diálogo seguinte quantas linhas pretende por coluna e, em seguida, clique em OK e selecione uma célula para apresentar o resultado. Veja as capturas de ecrã:
 |
 |
 |
|
 |
4. Clique em OK e verá que a coluna longa foi dividida em várias colunas, cada uma com 15 células.
Dividir uma coluna longa em várias colunas com Kutools para Excel
Talvez alguns utilizadores não gostem de utilizar código VBA. Felizmente, pode usar a utilidade Transformar Intervalo do Kutools para Excel para converter rapidamente e facilmente uma coluna longa num número fixo de colunas.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Selecione os dados da coluna que pretende dividir e, em seguida, clique em Kutools > Intervalo > Transformar Intervalo. Veja a captura de ecrã:
2. Na caixa de diálogo que surge, ative a opção Coluna Única para Intervalo, depois ative a opção Valor Fixo e introduza na caixa de texto o número de colunas pretendido. Veja a captura de ecrã:
3. Clique em Ok e selecione uma única célula para colocar os Dados Divididos. Veja a captura de ecrã:
4. Clique em OK para concluir as operações. Agora, os dados da coluna longa foram divididos em três colunas.
Será mais fácil do que o código VBA? Com a utilidade Transformar Intervalo, pode converter uma linha num intervalo, um intervalo numa linha ou numa única coluna.
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