Cum se convertesc toate tabelele în intervale în foaia de lucru activă?
În Excel, puteți utiliza unele tabele pentru a înregistra date, dar, uneori, doriți să convertiți tabelul în interval pentru a face o ediție. În general, puteți converti o singură masă în interval o singură dată, va fi supărătoare dacă există zeci de tabele într-o foaie care trebuie convertite în intervale. Aici am un cod VBA care poate converti tabelele foii active în interval simultan.
Convertiți toate tabelele în intervale de foi active cu VBA
Convertiți toate tabelele în intervale de foi active cu VBA
1. Activați foaia pe care doriți să o convertiți tabelele, apoi apăsați Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module pentru a crea un nou script de modul, copiați și lipiți codul de mai jos în modulul gol.
VBA: convertiți toate tabelele foii active în intervale
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. presa F5 tasta pentru a rula codul, acum toate tabelele foii curente au fost convertite în intervale.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!