Hoe converteer je snel een arraytabel naar een lijsttabel in Excel?

Stel dat je een arraytabel/kruistabel hebt, en het converteren van deze arraytabel naar een lijsttabel is misschien niet moeilijk voor je en je kunt het doen door de gegevens één voor één in te voeren. Echter, als er meerdere arraytabellen moeten worden geconverteerd naar lijsttabellen, is de handmatige methode waarschijnlijk geen goede oplossing. Deze handleiding introduceert trucs die snel een arraytabel naar een lijsttabel kunnen converteren in Excel.

Converteer arraytabel naar lijsttabel met PivotTable

Converteer arraytabel naar lijsttabel met VBA

Converteer arraytabel naar lijsttabel met Kutools voor Excel

Converteer arraytabel naar lijsttabel met PivotTable

Je kunt PivotTable gebruiken om een arraytabel naar een lijst te converteren en deze vervolgens kopiëren als bereik.

1. Druk op Alt + D tegelijkertijd, en druk vervolgens op P toets om de PivotTable en PivotChart Wizard dialoogvenster te openen, en vink aan Meerdere consolidatiebereiken en PivotTable opties. Zie screenshot:

2. Klik op Volgende om naar Stap 2a van de wizard te gaan, en vink de optie Ik zal de paginavelden maken aan. Zie screenshot:

3. Klik Volgende om naar Stap 2b van de wizardte gaan, en selecteer het arraybereik en voeg het toe aan de Alle bereiken lijst. Zie screenshot:

4. Klik Volgende om naar de laatste stap te gaan, vink een optie aan zoals je nodig hebt. Zie screenshot:

5. Klik Voltooien en vervolgens is er een PivotTable gemaakt, ga dan naar de kruisende cel van Eindtotaal, dubbelklik erop, en je ziet dat er een lijst-PivotTable is gemaakt in een nieuw werkblad. Zie screenshots:

6. Selecteer vervolgens de lijst-PivotTable, en klik met de rechtermuisknop om te selecteren Tabel > Converteren naar bereik uit het contextmenu. Zie screenshot:

Nu is de arraytabel geconverteerd naar een lijsttabel.

Converteer arraytabel naar lijsttabel met VBA

Hier is een VBA die je kan helpen bij het converteren van een arraytabel naar een lijsttabel, volg onderstaande stappen:

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak onderstaande VBA-code in het nieuwe Module-venster.

VBA: Converteer arraytabel naar lijst

Sub ConvertTableToList()
'UpdatebyEntendOffice20160429
    Dim I As Long
    Dim xCls As Long
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select Array Table:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSaveToRg = Application.InputBox("Select a range(cell) to put the list table", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    xCls = xRg.Columns.Count - 1
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xSaveToRg.Offset((I - 1) * xCls).Value = xRg.Cells(I, 1).Value
        xSaveToRg.Offset((I - 1) * xCls, 1).Resize(xCls).Value = _
                        Application.WorksheetFunction.Transpose(xRg.Cells(I, 2).Resize(1, xCls))
    Next
    Application.ScreenUpdating = True
End Sub

3. En druk op F5 toets om de VBA uit te voeren, en er verschijnt een dialoogvenster waarin je de arraytabel zonder kopteksten kunt selecteren. Zie screenshot:

4. Klik OK om naar het volgende dialoogvenster te gaan om een cel te selecteren om de lijsttabel uit te voeren. Zie screenshot:

5. Klik OK, en de arraytabel is geconverteerd naar een lijst.

Tip:

Als je de lege cellen wilt invullen op basis van de bovenliggende cel, kun je het volgende doen:

1. Installeer Kutools voor Excel -- een handig hulpmiddel en klik vervolgens op Kutools > Invoegen > Lege cellen vullen. Zie screenshot:

2. In het Lege cellen vullen dialoogvenster, vink aan Gebaseerd op waarde en Omlaag opties. Zie screenshot:

3. Klik Ok of Toepassen, en nu zijn de lege cellen ingevuld op basis van de bovenliggende waarden.

Klik hier om meer te weten te komen over Lege cellen vullen.

Converteer arraytabel naar lijsttabel met Kutools voor Excel

Als bovenstaande methoden niet eenvoudig genoeg voor je zijn, kan ik hier een handig hulpmiddel introduceren – Kutools voor Excel, de functie Tabeldimensie converteren kan snel en gemakkelijk converteren tussen arraytabel en lijsttabel.

Na gratis installatie Kutools voor Excel, doe als volgt:

1. Selecteer de arraytabel die je wilt converteren naar een lijst, en klik Kutools > Bereik > Tabeldimensie converteren. Zie screenshot:

2. Vervolgens in de Tabeldimensie converteren dialoogvenster, vink Tweedimensionale tabel naar eendimensionale tabel optie aan, en selecteer vervolgens het bereik dat de lijsttabel uitvoert. Zie screenshot:

3. Klik Ok, nu is de arraytabel geconverteerd naar een lijsttabel.

Klik hier om meer te weten te komen over Tabeldimensie converteren.