Come trasporre facilmente e rapidamente l'intervallo e impilare i dati in Excel?
Ad esempio, ci sono alcuni dati visualizzati in gruppi e ora voglio trasporre l'intervallo e impilare i dati in ogni colonna come mostrato nell'immagine sottostante. In questo articolo, introdurrò i metodi su questa attività in Excel.
Trasponi e impila i dati con VBA
Trasponi e impila i dati con Transpose Table Dimension
Trasponi e impila i dati con VBA
È possibile applicare un codice VBA per trasporre e impilare i dati.
1. Selezionare i dati tranne le intestazioni di colonna e premere Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice sottostante nel file Moduli.
VBA: trasponi e impila i dati
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. Stampa F5 chiave, quindi i dati sono stati trasposti e impilati. Vedi screenshot:
Nota: Nel codice VBA, A indica di posizionare i dati di trasposizione nella colonna A del foglio attivo e sostituire i dati originali nella colonna A.
Trasponi e impila i dati con Transpose Table Dimension
Se desideri trasporre rapidamente e facilmente l'intervallo e impilare i dati senza codice VBA, puoi applicare Kutools for Excel'S Trasponi dimensione tabella utilità.
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!)
1. Seleziona i dati che usi, clicca Kutools > Escursione > Trasponi le dimensioni della tabella. Vedi screenshot:
2. Nella finestra di dialogo, seleziona Tabella incrociata per elencare opzione e selezionare una cella in cui si desidera inserire i dati trasposti Intervallo risultati (cella singola) casella di testo. Vedi screenshot:
3. Clic Ok. Ora l'intervallo è stato trasposto e impilato in colonne.
Transpose Range e Stack Data
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!