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.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
