Como transpor facilmente e rapidamente um intervalo e empilhar dados no Excel?
Por exemplo, existem alguns dados exibidos em grupos, e agora quero transpor o intervalo e empilhar os dados em cada coluna, conforme mostrado na captura de tela abaixo. Neste artigo, vou apresentar os métodos para realizar essa tarefa no Excel.
Transpor e empilhar dados com VBA
Transpor e empilhar dados com a função Transpose Table Dimension do Kutools 
Transpor e empilhar dados com VBA
Você pode aplicar um código VBA para transpor e empilhar dados.
1. Selecione os dados, exceto os cabeçalhos das colunas, e pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código abaixo 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. Pressione F5 e então os dados terão sido transpostos e empilhados. Veja a captura de tela:
Observação: No código VBA, A indica que os dados transpostos serão colocados na coluna A da planilha ativa, substituindo os dados originais da coluna A.
Transpor e empilhar dados com a função Transpose Table Dimension do Kutools
Se você deseja transpor rapidamente e facilmente um intervalo e empilhar dados sem usar código VBA, pode aplicar a ferramenta Transpose Table Dimension do Kutools para Excel.
1. Selecione os dados que você está usando, clique em Kutools > Intervalo > Converter Dimensão da Tabela. Veja a captura de tela:
2. Na caixa de diálogo, marque a opção Converter Tabela Bidimensional em Tabela Unidimensional e selecione uma célula onde deseja colocar os dados transpostos no campo Intervalo de Resultados (por célula) . Veja a captura de tela:
3. Clique em Ok. Agora o intervalo foi transposto e empilhado em colunas.
Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora
Demonstração: Transpor Intervalo e Empilhar Dados com a Função Transpose Table Dimension do Kutools
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins