Hur konverterar jag alla tabeller till intervall i aktivt arbetsblad?

I Excel kan du använda vissa tabeller för att spela in data, men ibland vill du konvertera tabellen till intervall för att göra någon version. I allmänhet kan du bara konvertera en tabell till intervall en gång, det blir besvärligt om det finns dussintals tabeller i ett ark som behöver konverteras till intervall. Här har jag en VBA-kod som kan konvertera tabeller med aktivt ark till intervall på en gång.

Konvertera alla tabeller till områden av aktivt ark med VBA

Konvertera alla tabeller till områden av aktivt ark med VBA

1. Aktivera arket du vill konvertera dess tabeller och tryck sedan på Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna för att skapa ett nytt modulskript, kopiera och klistra in koden nedan till den tomma modulen.

VBA: Konvertera alla tabeller med aktivt ark till intervall

Sub ConvertTablesToRange()
'UpdatebyExtendoffice20180530
    Dim xSheet As Worksheet
    Dim xList As ListObject
    Set xSheet = ActiveWorkbook.ActiveSheet
    For Each xList In xSheet.ListObjects
        xList.Unlist
    Next
End Sub

3. Tryck F5 för att köra koden, nu har alla tabeller i det aktuella arket konverterats till intervall.