Como transpor e empilhar dados de forma fácil e rápida no Excel?
Por exemplo, alguns dados estão organizados em grupos e pretendo transpor o intervalo, empilhando os dados de cada coluna, tal como ilustrado na imagem abaixo. Neste artigo, apresento os métodos para realizar esta tarefa no Excel.
Transpor e empilhar dados com VBA
Transpor e empilhar dados com a Dimensão Transpor Tabela do Kutools 
Transpor e empilhar dados com VBA
Pode aplicar um código VBA para transpor e empilhar os dados.
1. Selecione os dados — exceto os cabeçalhos das colunas — e prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte no Módulo.
VBA: Transpor e empilhar dados
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 e os dados serão transpostos e empilhados. Veja a imagem:
Nota: No código VBA, «A» indica que os dados transpostos serão colocados na coluna A da folha atual, substituindo os dados originais nessa coluna.
Transpor e empilhar dados com a Dimensão Transpor Tabela do Kutools
Se pretender transpor e empilhar dados de forma rápida e fácil sem recorrer a código VBA, pode utilizar a funcionalidade Kutools para Excel’s Dimensão Transpor Tabela.
1. Selecione os dados que pretende utilizar e clique em Kutools > Intervalo > Converter Dimensão da Tabela. Veja a imagem:
2. Na caixa de diálogo, marque a opção Converter Tabela Bidimensional em Tabela Unidimensional e selecione a célula onde pretende colocar os dados transpostos na caixa de texto Intervalo dos resultados (célula única). Veja a imagem:
3. Clique em Ok. Agora, o intervalo foi transposto e empilhado em colunas.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Transpor intervalo e empilhar dados com a Dimensão Transpor Tabela do Kutools
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