Come trasporre le celle da orizzontale a verticale in Excel?
Quando inseriamo valori in un foglio Excel, di solito lo facciamo da sinistra a destra, ma in alcuni casi potrebbe essere necessario trasporre le celle in modo da disporle dall’alto in basso, come mostrato nello screenshot seguente. Excel non offre una funzionalità integrata per soddisfare rapidamente questa esigenza, ma in questo articolo ti svelerò alcuni trucchi utili.
Trasponi celle da sinistra a destra con VBA
Trasponi celle da sinistra a destra o dall’alto in basso con Kutools per Excel 
Trasponi celle da sinistra a destra con VBA
Per trasporre rapidamente le celle da sinistra a destra senza utilizzare formule, puoi ricorrere a un codice VBA.
1. Premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo, quindi 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 il tasto F5 per eseguire il codice; apparirà una finestra di dialogo in cui inserire le lettere delle colonne da trasporre. Separa le lettere delle colonne con virgole, come mostrato nello screenshot seguente.
4. Fai clic su OK. Ora la selezione è stata trasposta da sinistra a destra.
Trasponi celle da sinistra a destra o dall’alto in basso con Kutools per Excel
Se hai installato Kutools per Excel, puoi trasporre rapidamente le celle da sinistra a destra o dall’alto in basso grazie alle utility **Capovolgi intervallo verticalmente** e **Capovolgi intervallo orizzontalmente**.
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 in basso, quindi fai clic su Kutools > Intervallo > Capovolgi intervallo orizzontalmente / Capovolgi intervallo verticalmente > Tutto oppure Capovolgi solo contenuto. Vedi screenshot:
| Capovolgi intervallo orizzontalmente > Tutto: |
 |
| Capovolgi orizzontalmente > Capovolgi solo contenuto: |
 |
| Capovolgi intervallo verticalmente > Tutto: | Capovolgi intervallo verticalmente > Capovolgi solo contenuto: |
 |  |
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Demo: Trasponi celle da sinistra a destra o dall’alto in basso con Kutools per Excel
Potrebbe interessarti:
Potrebbe interessarti:- Come trasporre i riferimenti durante il riempimento automatico in basso o a destra in Excel?
- Come trasporre e collegare i valori in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi