Hogyan lehet átalakítani a mátrix stílusú táblázatot három oszlopra az Excelben?
Tegyük fel, hogy van egy mátrix stílusú táblázata, amely oszlopfejléceket és sorfejléceket tartalmaz, és most ezt a stílustáblát három oszloptáblává kívánja konvertálni, és a következő táblázat szerint a táblázat táblának is nevezte, van-e jó módja ennek megoldására probléma az Excelben?
Konvertálja a mátrix stílusú táblázatot listára a PivotTable segítségével
Konvertálja a mátrix stílusú táblázatot VBA kóddal ellátott listára
Konvertálja a mátrixstílusú táblázatot listává a Kutools for Excel segítségével
Konvertálja a mátrix stílusú táblázatot listára a PivotTable segítségével
Az Excel programban nincs közvetlen funkció arra, hogy a mátrix stílusú táblázatot három oszloptáblává alakítsuk át, de ha ismeri a PivotTable-t, akkor ez jót tehet Önnek. Kérjük, tegye a következőket:
1. Aktiválja a használni kívánt munkalapot, majd tartsa lenyomva Alt + D, majd nyomja meg a gombot P a billentyűzetben, a kiugrottban PivotTable és PivotChart varázsló párbeszédablakban válassza ki Több konszolidációs tartomány alatt a Hol vannak az elemezni kívánt adatok szakaszban, majd válassza a lehetőséget Pivot tábla alatt a Milyen jelentést szeretne létrehozni szakasz, lásd a képernyőképet:
2. Ezután kattintson Következő gombra, a 2 / 3a lépés varázsló, válassza ki a Létrehozom az oldalmezőket opció, lásd a képernyőképet:
3. Kattintson a gombra Következő gombra, a 2b / 3 lépés varázsló, kattintson gombbal válassza ki a konvertálni kívánt adattartományt, majd kattintson a gombra hozzáad gomb az adattartomány hozzáadásához a Minden tartomány lista mező, lásd a képernyőképet:
4. és kattintson Következő gomb, be Az 3 3 lépése varázsló, válassza ki a kívánt helyet az elfordulási táblának.
5. Ezután kattintson befejez gomb, egyszerre egy pivot tábla készült, lásd a képernyőképet:
6. Az elfordulási táblázatban kattintson duplán a Végösszeg metsző cellájára, ebben az esetben duplán kattintok az F22 cellára, és ez egy három oszlopos táblázatot generál a következő képernyőkép szerint:
7. Végül pedig átalakíthatja a tábla formátumát a normál tartományba a táblázat kiválasztásával, majd a választással Táblázat > Átalakítás tartományra a helyi menüből lásd a képernyőképet:
Konvertálja a mátrix stílusú táblázatot VBA kóddal ellátott listára
Ha nem tetszik az első módszer, a következő VBA-kód is segíthet.
1. nyomja meg Alt + F11 megjeleníteni a Microsoft Visual Basic for Applications ablak.
2. Az ablakban kattintson a gombra betétlap > Modulok új modulablak megjelenítéséhez másolja és illessze be a következő VBA kódot a modulablakba.
VBA-kód: A mátrixstílus-táblázat konvertálása listává
Sub ConvertTable()
'Update 20150512
Dim Rng As Range
Dim cRng As Range
Dim rRng As Range
Dim xOutRng As Range
xTitleId = "KutoolsforExcel"
Set cRng = Application.InputBox("Select your Column labels", xTitleId, Type:=8)
Set rRng = Application.InputBox("Select Your Row Labels", xTitleId, Type:=8)
Set Rng = Application.InputBox("Select your data", xTitleId, Type:=8)
Set outRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set xWs = Rng.Worksheet
k = 1
xColumns = rRng.Column
xRow = cRng.Row
For i = Rng.Rows(1).Row To Rng.Rows(1).Row + Rng.Rows.Count - 1
For j = Rng.Columns(1).Column To Rng.Columns(1).Column + Rng.Columns.Count - 1
outRng.Cells(k, 1) = xWs.Cells(i, xColumns)
outRng.Cells(k, 2) = xWs.Cells(xRow, j)
outRng.Cells(k, 3) = xWs.Cells(i, j)
k = k + 1
Next j
Next i
End Sub
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely lehetővé teszi az adatok oszlopcímkéinek kiválasztását, lásd a képernyőképet:
4. Kattintson a gombra OK gomb, a következő prompt mezőben válassza ki a sorcímkéket, lásd a képernyőképet:
5. Kattintson a gombra OK, majd válassza ki az adattartományt az oszlop- és sorfejlécek kivételével a prompt mezőben, lásd a képernyőképet:
6. Kattintson a gombra OK, ebben a párbeszédpanelen válasszon egy cellát, ahol meg akarja találni az eredményt. Lásd a képernyőképet:
7. Végül kattintson OK, és egyszerre három oszlopos táblázatot kap.
Konvertálja a mátrixstílusú táblázatot listává a Kutools for Excel segítségével
Mindkét fenti módszer kissé zavaró, itt egy egyszerű módszert mutatok be - Kutools az Excel számára, Annak Tegye át a táblázat méreteit funkcióval gyorsan konvertálhat egy cellamátrixot és egy listatáblát.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Kattints Kutools > Választék > Tegye át a táblázat méreteit, lásd a képernyőképet:
2. Az Tegye át a táblázat méreteit párbeszédablak:
(1.) Válasszon Keresztasztal a felsoroláshoz opció alatt Átültetés típusa.
(2.) Ezután kattintson gomb alatt Forrás tartomány a konvertálni kívánt adattartomány kiválasztásához.
(3.) Ezután kattintson gomb alatt Eredménytartomány cella kiválasztásához, ahová az eredményt fel akarja tenni.
3. Kattintson a gombra OK gombra, és a következő eredményt kapja, amely tartalmazza az eredeti cella formázást:
Ezzel a segédprogrammal Ön is konvertálja a lapos táblázatot 2 dimenziós kereszttáblává.
Ha többet szeretne megtudni erről a táblázatméretek átültetése szolgáltatásról.
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Demo: Konvertálja a mátrixstílusú táblázatot listává a Kutools for Excel segítségével
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!