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.

Demonstração: Transpor Intervalo e Empilhar Dados com a Função Transpose Table Dimension do Kutools