Come trasporre le celle da sinistra a destra in Excel?
Quando digitiamo valori nel foglio Excel, di solito li digitiamo da sinistra a destra, ma in alcuni casi, potresti voler trasporre le celle che sono da sinistra a destra a destra a sinistra come mostrato nell'immagine sottostante. Non esiste una funzionalità incorporata in Excel che possa aiutarti a risolverlo rapidamente, ma in questo articolo introduco alcuni trucchi per farti un favore.
Trasponi le celle da sinistra a destra con VBA
Trasponi le celle da sinistra a destra o dall'alto verso il basso con Kutools per Excel
Trasponi 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. Stampa Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli, incolla sotto il codice 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. Stampa F5 chiave per eseguire il codice, viene visualizzata una finestra di dialogo per inserire le lettere delle colonne che si desidera trasporre. Si prega di separare queste lettere di colonna con una virgola come mostrato nell'immagine sottostante.
4. Clic OK. Ora la selezione è stata trasposta da sinistra a destra.
Trasponi 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 le sue utilità Capovolgi intervallo verticale e Capovolgi intervallo orizzontale di cui hai bisogno.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. |
Dopo l'installazione Kutools per Excel, fai come di seguito :(Scarica gratuitamente Kutools per Excel adesso!)
Seleziona le celle che desideri trasporre da sinistra a destra o dall'alto verso il basso, fai clic Kutools > Escursione > Capovolgi intervallo orizzontale/Capovolgi intervallo verticale > Tutti or Solo valori di inversione. Vedi screenshot:
Capovolgi intervallo orizzontale> Tutto: |
Capovolgi orizzontalmente> Solo valori di capovolgimento: |
Capovolgi intervallo verticale> Tutto: |
Capovolgi intervallo verticale> Solo valori di capovolgimento:
|
Capovolgi dati
Potresti essere interessato a:
- Come trasporre il riferimento durante il riempimento automatico in basso / a destra in Excel?
- Come trasporre e collegare i valori in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!