Como transpor células da esquerda para a direita no Excel?

Ao digitar valores em uma planilha do Excel, geralmente os digitamos da esquerda para a direita. No entanto, em alguns casos, você pode querer transpor células da esquerda para a direita, conforme mostrado na captura de tela abaixo. Não há um recurso embutido no Excel que possa ajudá-lo a resolver isso rapidamente, mas neste artigo, mostrarei alguns truques para ajudá-lo.

Transpor células da esquerda para a direita com VBA

Transpor células da esquerda para a direita ou de cima para baixo com o Kutools para Excel

Transpor células da esquerda para a direita com VBA

Para transpor células da esquerda para a direita rapidamente sem fórmulas, você pode usar um código VBA.

1. Pressione as teclas Alt + F11 para habilitar a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, cole o código abaixo no script 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. Pressione F5 para executar o código; aparecerá uma caixa de diálogo para você inserir as letras das colunas que deseja transpor. Separe essas letras de coluna com vírgulas, conforme mostrado na captura de tela abaixo.

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 o Kutools para Excel

Se você tiver o Kutools para Excel instalado, poderá transpor rapidamente células da esquerda para a direita ou de cima para baixo com as utilidades Inverter Intervalo Verticalmente e Inverter Intervalo Horizontalmente.

Após instalar o Kutools para Excel, faça o seguinte: (Baixe Grátis o Kutools para Excel Agora!)

Selecione as células que deseja transpor da esquerda para a direita ou de cima para baixo, clique Kutools > Intervalo > Inverter intervalo horizontalmente/Inverter Intervalo Verticalmente > Todos ou Inverter somente conteúdo. Veja as capturas de tela:

Inverter Intervalo Horizontalmente > Todos:

Inverter Horizontalmente > Inverter somente conteúdo:

Inverter Intervalo Verticalmente > Todos:	Inverter Intervalo Verticalmente > Inverter somente conteúdo:

Demonstração: Transpor células da esquerda para a direita ou de cima para baixo com o Kutools para Excel

Você pode se interessar por:

• Como transpor referências ao preencher automaticamente para baixo/direita no Excel?
• Como transpor e vincular valores no Excel?