Como transpor células da esquerda para a direita no Excel?
Quando digitamos valores na planilha do Excel, geralmente os digitamos da esquerda para a direita, mas em alguns casos, você pode querer transpor as células que estão da esquerda para a direita para a direita para a esquerda, como mostrado na imagem abaixo. Não há nenhum recurso interno do Excel que possa ajudá-lo a resolvê-lo rapidamente, mas neste artigo, apresento alguns truques para lhe fazer um favor.
Transpor células da esquerda para a direita com VBA
Transponha 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 Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > 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, uma caixa de diálogo é exibida para você inserir as letras da coluna que deseja transpor. Separe essas letras das colunas com vírgulas, conforme a imagem mostrada abaixo.
4. Clique OK. Agora a seleção foi transposta da esquerda para a direita.
Transponha 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 as células da esquerda para a direita ou de cima para baixo com os utilitários Flip Vertical Range e Flip Horizontal Range conforme necessário.
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!)
Selecione as células que deseja transpor da esquerda para a direita ou de cima para baixo, clique Kutools > Variação > Inverter alcance horizontal/Inverter alcance vertical > Todos os Produtos or Somente valores invertidos. Veja as capturas de tela:
Inverter intervalo horizontal> Tudo: |
Inverter horizontalmente> Inverter somente valores: |
Flip Vertical Range> All: |
Inverter intervalo vertical> Inverter somente valores:
|
Virar dados
Você pode se interessar por:
- Como transpor a referência durante o preenchimento automático para baixo / direito no Excel?
- Como transpor e vincular valores no Excel?
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!