Come trasporre le celle da sinistra a destra in Excel?

Quando inseriamo valori in un foglio di lavoro di Excel, di solito li digitiamo da sinistra a destra, ma in alcuni casi potresti voler trasporre le celle da sinistra a destra, come mostrato nello screenshot sottostante. Non esiste una funzionalità integrata in Excel che ti aiuti a risolvere rapidamente il problema, ma in questo articolo ti mostrerò alcuni trucchi per aiutarti.

Trasporre le celle da sinistra a destra con VBA

Trasporre le celle da sinistra a destra o dall'alto verso il basso con Kutools per Excel

Trasporre le celle da sinistra a destra con VBA

Per trasporre rapidamente le celle da sinistra a destra senza formule, puoi utilizzare un codice VBA.

1. Premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, incolla il codice seguente nello script vuoto.

VBA: Trasponi da sinistra a destra

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. Premi F5 per eseguire il codice, appare una finestra di dialogo in cui puoi inserire le lettere delle colonne che desideri trasporre. Separa queste lettere delle colonne con virgole, come mostrato nello screenshot sottostante.

4. Clicca OK. Ora la selezione è stata trasposta da sinistra a destra.

Trasporre le celle da sinistra a destra o dall'alto verso il basso con Kutools per Excel

Se hai installato Kutools per Excel, puoi trasporre rapidamente le celle da sinistra a destra o dall'alto verso il basso con gli strumenti Capovolgi intervallo orizzontalmente e Capovolgi intervallo verticalmente.

Dopo aver installato Kutools per Excel, procedi come segue: (Scarica gratuitamente Kutools per Excel ora!)

Seleziona le celle che desideri trasporre da sinistra a destra o dall'alto verso il basso, clicca Kutools > Intervallo > Capovolgi intervallo orizzontalmente/Capovolgi intervallo verticalmente > Tutto oppure Capovolgi solo contenuto. Vedi gli screenshot:

Capovolgi intervallo orizzontale > Tutto:

Capovolgi orizzontale > Capovolgi solo contenuto:

Capovolgi intervallo verticale > Tutto:	Capovolgi intervallo verticale > Capovolgi solo contenuto:

Demo: Trasponi le celle da sinistra a destra o dall'alto verso il basso con Kutools per Excel

Potresti essere interessato a:

• Come trasporre il riferimento durante il riempimento automatico verso il basso/destra in Excel?
• Come trasporre e collegare valori in Excel?