Cum se convertește tabelul Crosstab (tabelul bidimensional) în listă în Excel?
Știți cum să convertiți o masă încrucișată (tabel bidimensional) într-o tabelă listă (tabel unidimensional) în Microsoft Excel? Din anumite motive, poate fi necesar să convertiți un tabel (cu titluri de rânduri și titluri de coloane) într-o listă plană în Excel. Următoarele trucuri vă pot ajuta să convertiți cu ușurință și rapid o masă transversală în listă plană:
- Convertiți tabelul încrucișat în listă în Excel cu VBA
- Convertiți tabelul încrucișat în listă în Excel cu Kutools pentru Excel
Să presupunem că aveți o masă încrucișată și trebuie să o convertiți într-o listă după cum urmează.
Masă transversală (cu titluri de rânduri și titluri de coloane) | Un tabel list (tabel unidimensional) |
Convertiți tabelul încrucișat în listă în Excel cu VBA
Următoarea macro VBA vă poate ajuta să convertiți rapid toate tabelele încrucișate din foaia de lucru activă în liste plate.
Pasul 1: Țineți apăsat butonul Alt + F11 tastele din Excel și deschide fereastra Microsoft Visual Basic pentru aplicații.
Pasul 2: Faceți clic pe Insera > Moduleși lipiți următoarea macro în fereastra modulului.
VBA pe tabelul de tabel încrucișat de transpunere pentru a enumera:
Sub ConvertTableToList ()
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = Fals
Cu ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .End (xlUp) .Row
Pentru i = iLastRow To 2 Pasul -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Column
Pentru j = iLastCol la 3 Pasul -1
.Rânduri (i + 1) .Insert
.Celule (i + 1, 2) .Value = .Celule (i, j) .Value
.Celule (i, j) .Value = ""
Următorul j
Apoi eu
.Rows (1). Ștergeți
Se termina cu
Application.ScreenUpdating = Adevărat
End Sub
Pasul 3: Faceți clic pe F5 tasta pentru a rula această macro.
Apoi, veți vedea lista convertită afișând următoarea captură de ecran:
Notă:
1. Această macrocomandă VBA pierde unele date din tabelul original, cum ar fi anteturile sau altele. În acest caz, anteturile (Nume, Grad și Clasă) se pierd.
2. Puteți schimba ca Șir = "A", pentru a vă satisface nevoile. De exemplu, dacă tabelul încrucișat este menționat în coloana E, ar trebui să „E” din „A”.
3. Și dacă există alte date în foaia de lucru, uneori datele din listă vor fi greșite după convertirea unei tabele încrucișate.
Convertiți tabelele încrucișate în liste în Excel cu Kutools pentru Excel
Dacă aveţi Kutools pentru Excel instalat, îl puteți utiliza Transpuneți dimensiunile tabelului instrument pentru a converti rapid tabelele încrucișate în lista plană.
Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum.
Pasul 1: Selectați tabelul pe care îl veți converti într-o listă.
Pasul 2: Faceți clic pe Kutools >Modifica > Transpuneți dimensiunea tabelului. Vedeți următoarea captură de ecran:
Pasul 3: în caseta de dialog Transpunere dimensiuni tabel, bifați Masă încrucișată pentru listare și selectați opțiunea Gama de rezultate făcând clic pe butonul.
Pasul 4: Faceți clic pe OK butonul.
Apoi, veți vedea că tabelul original este convertit într-o listă plană, după cum urmează:
Transpuneți dimensiunile tabelului de asemenea, poate converti lista în tabel încrucișat. Pentru mai multe informații, vă rugăm să accesați Transpuneți dimensiunile tabelului.
Articole relative:
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!