Enn om du har et kors tabellen og trenger å konvertere den til en liste som følger.
Cross tabellen (med rad overskrifter og kolonner overskrifter) En liste tabellen (endimensjonal tabell)
Konverter krysstabellen å liste i Excel med VBA
følgende VBA-makro kan hjelpe deg raskt konvertere alle krysstabeller i aktive regnearket til flate lister.
Trinn 1 : Hold nede ALT + F11-tastene i Excel, og det åpner Microsoft Visual Basic for Applications vindu
Trinn 2:. Klikk på Insert > Modul, og lim inn følgende makroen i modulen Window
VBA på transponere krysstabellen til listen.
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 = False
Med Active
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) END (xlUp) .Row
For i = iLastRow Til 2 Step -1
iLastCol =. celler (i, .Columns.Count) END (xlToLeft) .Column
For j = iLastCol Til 3 Step -1
.Rows (i + 1) .Insert
< em> .Cells (i + 1, 2) .Value = .Cells (i, j) .Value
.Cells (i, j) .Value = ""
Neste j
Neste i
.Rows (1) .Delete
End Med
Application.ScreenUpdating = True
End Sub Anmeldelser
Trinn 3: Klikk F5 for å kjøre denne makroen
Deretter vil du se den konverterte liste som viser som følgende skjermbilde:.
Merk:
1. Dette VBA-makro mister noen data fra opprinnelige tabellen, for eksempel overskrifter, eller andre. I dette tilfellet er de overskrifter (navn, klasse, og klasse) tapt.
2. Du kan endre As String = "A", for å møte dine behov. For eksempel, hvis krysstabellen er angitt i kolonne E, bør i stedet "E" for "A".
3. Og hvis det er andre data i regnearket, noen ganger dataene i listen vil være galt etter konvertering en krysstabell.
Konverter krysstabeller til lister i Excel med Kutools for Excel
Hvis du har Kutools for Excel installert, kan du bruke sin transponere Tabell Dimensjoner verktøy for å konvertere krysstabeller til flat list raskt.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager.
Få den nå
Trinn 1: Velg tabellen som du vil konvertere den til en liste
Trinn 2:.. Klikk på Kutools > Endre > Transponere Tabell Dimension. Se følgende skjermbilde:
Trinn 3:. I Transponere Tabell Dimensjoner dialogboksen sjekke Cross tabellen for å vise valget og velger resultatene varierer med å klikke på knappen
Trinn 4: Klikk . OK
Deretter vil du se den opprinnelige tabellen er omgjort til en flat list som følgende skjermbilde:
transponere Tabell Dimensjoner også kan konvertere liste til krysstabellen. For mer informasjon, vennligst gå til tran Tabell dimensjoner.
Hvis du har Kutools for Excel installert, kan du bruke sin transponere Tabell Dimensjoner verktøy for å konvertere krysstabeller til flat list raskt.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager.
Få den nå
Trinn 1: Velg tabellen som du vil konvertere den til en liste
Trinn 2:.. Klikk på Kutools > Endre > Transponere Tabell Dimension. Se følgende skjermbilde:
Trinn 3:. I Transponere Tabell Dimensjoner dialogboksen sjekke Cross tabellen for å vise valget og velger resultatene varierer med å klikke på knappen
Trinn 4: Klikk . OK
Deretter vil du se den opprinnelige tabellen er omgjort til en flat list som følgende skjermbilde:
transponere Tabell Dimensjoner også kan konvertere liste til krysstabellen. For mer informasjon, vennligst gå til tran Tabell dimensjoner.