Como empilhar colunas da esquerda para a direita numa única coluna no Excel?
Suponha que tem várias colunas e pretende empilhá-las da esquerda para a direita numa única coluna, tal como ilustrado na imagem seguinte. Para além de mover manualmente cada coluna uma a uma, existirá algum truque para resolver isto no Excel?
Empilhar colunas Da Esquerda para a Direita numa coluna com VBA
Empilhar colunas Da Esquerda para a Direita numa coluna com Kutools para Excel
Empilhar colunas Da Esquerda para a Direita numa coluna com VBA
O Excel não inclui nenhuma função incorporada capaz de realizar esta tarefa, mas o código VBA pode ajudá-lo.
1. Prima Alt + F11 e, na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo para criar um novo módulo em branco.
2. Copie e cole o código seguinte no Módulo.
VBA: Empilhar colunas numa só
Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNumC = 1 To xSRg.Columns.Count
For xFNumR = 1 To xSRg.Rows.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
xI = xI + 1
Next xFNumR
Next xFNumC
Application.ScreenUpdating = True
End Sub
3. Prima a tecla F5 para executar o código; surge uma caixa de diálogo que lhe permite selecionar as colunas que deseja empilhar numa só.
4. Clique em OK e selecione uma célula para colocar o resultado.
5. Clique em OK para concluir. As colunas selecionadas foram agora empilhadas numa única coluna.
Empilhar colunas Da Esquerda para a Direita numa coluna com Kutools para Excel
Se tiver o Kutools para Excel instalado no Excel, pode utilizar a funcionalidade Transform Range para realizar esta tarefa.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Selecione as colunas que pretende empilhar e clique em Kutools > Intervalo > Transform Range.
2. Na caixa de diálogo Transform Range, assinale a opção Range to single row e clique em Ok.
3. Na caixa de diálogo que surge, selecione uma célula para colocar o resultado e clique em OK.
As colunas foram agora convertidas numa única linha.
4. Selecione a linha única, prima Ctrl + C para copiá-la, selecione outra célula onde pretende colocar a coluna empilhada, clique com o botão direito do rato e escolha Transpose (T) no menu de contexto.
A linha única foi agora convertida numa coluna empilhada.
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