¿Cómo transponer celdas de izquierda a derecha en Excel?

Cuando ingresamos valores en una hoja de Excel, normalmente los escribimos de izquierda a derecha, pero en algunos casos, es posible que desee transponer las celdas de izquierda a derecha, como se muestra en la captura de pantalla a continuación. No hay una función integrada en Excel que pueda ayudarlo a resolverlo rápidamente, pero en este artículo, le mostraré algunos trucos para ayudarle.

Transponer celdas de izquierda a derecha con VBA

Transponer celdas de izquierda a derecha o de arriba hacia abajo con Kutools para Excel

Transponer celdas de izquierda a derecha con VBA

Para transponer celdas de izquierda a derecha rápidamente sin fórmulas, puede usar un código VBA.

1. Presione las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insert ar > Módulo, pegue el siguiente código en el script en blanco.

VBA: Transponer de izquierda a derecha

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. Presione F5 para ejecutar el código, aparecerá un cuadro de diálogo para que ingrese las letras de las columnas que desea transponer. Separe estas letras de columna con comas, como se muestra en la captura de pantalla a continuación.

4. Haga clic en Aceptar. Ahora la selección ha sido transpuesta de izquierda a derecha.

Transponer celdas de izquierda a derecha o de arriba hacia abajo con Kutools para Excel

Si tiene instalado Kutools para Excel, puede transponer rápidamente celdas de izquierda a derecha o de arriba hacia abajo con las utilidades Voltear rango verticalmente y Voltear rango horizontalmente.

Después de instalar Kutools para Excel, por favor haga lo siguiente: (¡Descarga gratuita de Kutools para Excel ahora!)

Seleccione las celdas que desea transponer de izquierda a derecha o de arriba hacia abajo, haga clic Kutools > Rango > Voltear rango horizontalmente/Voltear rango verticalmente > Todo o Solo voltear contenido. Ver capturas de pantalla:

Voltear rango horizontal > Todo:

Voltear horizontal > Solo voltear contenido:

Voltear rango vertical > Todo:	Voltear rango vertical > Solo voltear contenido:

Demostración: Transponer celdas de izquierda a derecha o de arriba hacia abajo con Kutools para Excel

También podría estar interesado en:

• ¿Cómo transponer referencias mientras se rellena automáticamente hacia abajo/derecha en Excel?
• ¿Cómo transponer y vincular valores en Excel?