Cum să transpuneți cu ușurință și rapid intervalul și stivați datele în Excel?
De exemplu, există unele date afișate în grupuri, iar acum vreau să transpun intervalul și să stivuiesc datele din fiecare coloană, așa cum se arată mai jos. În acest articol, voi introduce metodele pentru această sarcină în Excel.
Transpuneți și stivați date cu VBA
Transpuneți și stivați datele cu dimensiunea tabelului Transpose
Transpuneți și stivați date cu VBA
Puteți aplica un cod VBA pentru a transpune și stiva datele.
1. Selectați date, cu excepția anteturilor de coloană, și apăsați Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, și lipiți codul de mai jos în Module.
VBA: transpuneți și stivați datele
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. presa F5 , apoi datele au fost transpuse și stivuite. Vedeți captura de ecran:
Notă: În codul VBA, A indică plasarea datelor de transpunere în coloana A a foii active și înlocuirea datelor originale din coloana A.
Transpuneți și stivați datele cu dimensiunea tabelului Transpose
Dacă doriți să transpuneți rapid și ușor intervalul și să stivați date fără cod VBA, puteți aplica Kutools pentru Excel'S Transpuneți dimensiunea tabelului utilitate.
Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
După instalare Kutools pentru Excel, faceți următoarele :(Descărcați gratuit Kutools pentru Excel acum!)
1. Selectați datele pe care le utilizați, faceți clic pe Kutools > Gamă > Transpuneți dimensiunile tabelului. Vedeți captura de ecran:
2. În dialog, bifați Masă încrucișată pentru listare și selectați o celulă în care doriți să plasați datele transpuse Gama de rezultate (o singură celulă) casetă de text. Vedeți captura de ecran:
3. clic Ok. Acum gama a fost transpusă și stivuită în coloane.
Transpuneți datele privind gama și stiva
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!