Kako pretvoriti vse tabele v obsege v aktivnem delovnem listu?

V Excelu lahko za zapisovanje podatkov uporabite nekatere tabele, vendar včasih želite pretvoriti tabelo v obseg za izvedbo neke izdaje. Na splošno lahko samo enkrat pretvorite eno tabelo v obseg, težavno bo, če bo na listu na desetine tabel, ki jih je treba pretvoriti v obsege. Tu imam kodo VBA, ki lahko hkrati pretvori tabele aktivnega lista v obseg.

Vse tabele pretvorite v obsege aktivnega lista z VBA

Vse tabele pretvorite v obsege aktivnega lista z VBA

1. Aktivirajte list, v katerega želite pretvoriti njegove tabele, in pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli če želite ustvariti nov skript modula, kopirajte in prilepite spodnjo kodo v prazen modul.

VBA: pretvorite vse tabele aktivnega lista v obsege

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. Pritisnite F5 tipko za zagon kode, zdaj so bile vse tabele trenutnega lista pretvorjene v obsege.