Como transpor de maneira fácil e rápida o intervalo e empilhar dados no Excel?
Por exemplo, existem alguns dados exibidos em grupos, e agora eu quero transpor o intervalo e empilhar os dados em cada coluna, como mostrado na captura de tela abaixo. Neste artigo, vou apresentar os métodos dessa tarefa no Excel.
Transpor e empilhar dados com VBA
Transpor e empilhar dados com a dimensão da tabela de transposição
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 Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > 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 chave, e então os dados foram transpostos e empilhados. Veja a imagem:
Observação: No código VBA, A indica colocar os dados de transposição na coluna A da planilha ativa e substituir os dados originais na coluna A.
Transpor e empilhar dados com a dimensão da tabela de transposição
Se você deseja transpor o intervalo e empilhar dados de maneira rápida e fácil sem código VBA, pode aplicar Kutools for Excel'S Dimensão da tabela de transposição utilidade.
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 grátis o Kutools para Excel agora!)
1. Selecione os dados que você usa e clique em Kutools > Variação > Dimensões da tabela de transposição. Veja a imagem:
2. Na caixa de diálogo, verifique Tabela cruzada para listar opção e selecione uma célula na qual deseja colocar os dados transpostos Intervalo de resultados (célula única) caixa de texto. Veja a imagem:
3. Clique Ok. Agora o intervalo foi transposto e empilhado em colunas.
Transpor intervalo e empilhar dados
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!