Como transpor células do Excel da esquerda para a direita?
Quando introduzimos valores numa folha do Excel, normalmente digitamo-los da esquerda para a direita, mas em alguns casos poderá querer transpor as células da esquerda para a direita, conforme ilustrado na imagem seguinte. O Excel não inclui uma funcionalidade incorporada para resolver rapidamente esta situação, mas neste artigo revelo alguns truques que o podem ajudar.
Transpor células da esquerda para a direita com VBA
Transpor células da esquerda para a direita ou de cima para baixo com Kutools para Excel 
Transpor células da esquerda para a direita com VBA
Para transpor células da esquerda para a direita rapidamente — sem recorrer a fórmulas — pode utilizar um código VBA.
1. Prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte no espaço em branco.
VBA: Transpor da esquerda para a direita
Sub RearrangeColumns()
'UpdatebyExtenoffice20161125
Dim xLng, i As Long, LastRow As Long, Letters As Variant, NewLetters As Variant
Dim strTemp As String
On Error Resume Next
strTemp = Application.InputBox _
(Prompt:="Enter the column you want to transpose with comma separate", _
Title:="Kutools For Excel", Type:=2)
For i = Len(strTemp) To 1 Step -1
NewOrder = NewOrder + Mid(strTemp, i, 1)
Next i
LastRow = Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
Letters = Split(NewOrder, ",")
ReDim NewLetters(1 To UBound(Letters) + 1)
Application.ScreenUpdating = False
For xLng = 0 To UBound(Letters)
NewLetters(xLng + 1) = Columns(Letters(xLng)).Column
Next
Application.ScreenUpdating = True
Range("A1").Resize(LastRow, UBound(Letters) + 1) = _
Application.Index(Cells, Evaluate("ROW(1:" & LastRow & ")"), NewLetters)
End Sub
3. Prima a tecla F5 para executar o código. Aparecerá uma caixa de diálogo onde deverá introduzir as letras das colunas que pretende transpor. Separe essas letras por vírgulas, conforme ilustrado na imagem seguinte.
4. Clique em OK. Agora, a seleção foi transposta da esquerda para a direita.
Transpor células da esquerda para a direita ou de cima para baixo com Kutools para Excel
Se tiver o Kutools para Excel instalado, pode transpor células rapidamente da esquerda para a direita ou de cima para baixo com as funcionalidades **Inverter Intervalo Verticalmente** e **Inverter Intervalo Horizontalmente**.
Após instalar o Kutools para Excel, proceda como indicado a seguir: ()Transferência gratuita do Kutools para Excel já!)
Selecione as células que pretende transpor — da esquerda para a direita ou de cima para baixo — e clique em Kutools > Intervalo > Inverter intervalo horizontalmente / Inverter intervalo verticalmente > Tudo ou Inverter apenas conteúdo. Veja as imagens:
| Inverter intervalo horizontalmente > Tudo: |
 |
| Inverter Horizontalmente > Inverter Somente Conteúdo: |
 |
| Inverter Intervalo Verticalmente > Tudo: | Inverter Intervalo Verticalmente > Inverter Somente Conteúdo: |
 |  |
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 células da esquerda para a direita ou de cima para baixo com Kutools para Excel
Poderá estar interessado em:
Poderá estar interessado em:- Como transpor referências ao utilizar o preenchimento automático para baixo ou para a direita no Excel?
- Como transpor e vincular valores no Excel?
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