Hogyan lehet egy kereszttáblás táblát (2-dimenziós táblázat) listává alakítani az Excelben?
A kereszttábla (kétdimenziós tábla) átalakítása listatáblává (egydimenziós táblázat) Excelben különféle adatelemzési feladatokhoz lehet szükséges. Ha van egy táblázata sor- és oszlopfejlécekkel is, és azt egy lapos listává kell egyszerűsítenie, hatékony módszerek állnak rendelkezésre ennek az átalakításnak a megvalósítására. Ez az útmutató bemutatja, hogyan alakíthatja át gyorsan és egyszerűen a kereszttáblázatot egy jobban kezelhető listaformátummá az Excelben.
- Konvertálja a kereszttáblát listára Excel-ben a VBA segítségével
- A kereszttáblázat konvertálása listává az Excelben a Kutools for Excel segítségével
 |
|  |
| Kereszttábla (sorfejlécekkel és oszlopfejlécekkel) | Listatábla (egydimenziós táblázat) |
Konvertálja a kereszttáblát listára Excel-ben a VBA segítségével
A következő VBA makró segítségével gyorsan konvertálhatja az aktív munkalapokon lévő kereszttáblákat lapos listákká.
1 lépés: Tartsa lenyomva a más + F11 kulcsokat az Excel programban, és megnyitja a Microsoft Visual Basic for Applications ablakot.
2 lépés: Kattintson a gombra betétlap > Modulok, és illessze be a következő makrót a Modul ablakba.
A VBA a kereszttáblák átültetésénél a következők felsorolásához:
Sub ConvertTableToList()
'Updated by Extendoffice 2024/07/15
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 lépés: Kattintson a F5 gomb a makró futtatásához.
Ezután a konvertált listát a következő képernyőképként fogja látni:
- Ez a VBA-makró elveszti az eredeti tábla egyes adatait, például a fejléceket vagy másokat. Ebben az esetben a fejlécek (név, fokozat és osztály) elvesznek.
- Megváltoztathatja az As String = "A"-t, hogy megfeleljen az igényeinek. Például, ha a kereszttábla szerepel az E oszlopban, akkor az "A" helyett "E"-t kell írni.
- És ha más adatok is vannak a munkalapon, néha a listában szereplő adatok hibásak lesznek egy kereszttábla konvertálása után.
Konvertálja a kereszttáblákat listákká Excelben a Kutools for Excel segítségével
Ha van Kutools az Excel számára telepítve van, használhatja azt Tegye át a táblázat méreteit eszköz a kereszttáblák gyors lapos listákká alakításához.
1. lépés: Válassza ki azt a táblázatot, amelyet listává alakít.
2 lépés: Kattintson a Kutools >Választék > Tegye át a táblázat méretét. Lásd a következő képernyőképet:
3. lépés: A Tegye át a táblázat méreteit párbeszédpanelen ellenőrizze a Keresztasztal a felsoroláshoz opciót, és válassza a Eredménytartomány kattintson a 
gombot.
4 lépés: Kattintson a OK gombot.
Ezután látni fogja, hogy az eredeti tábla sima listává alakul át a következő képernyőképként:
Tegye át a táblázat méreteit a listát kereszttáblás táblává is konvertálhatja. További információért kérjük, látogasson el a címre Tegye át a táblázat méreteit.
Relatív cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!