Come convertire tutte le tabelle in intervalli nel foglio di lavoro attivo?
In Excel, puoi utilizzare alcune tabelle per registrare i dati, ma, in alcune volte, vuoi convertire la tabella in un intervallo per eseguire qualche edizione. In genere, puoi convertire una sola tabella in intervallo una volta sola, sarà problematico se ci sono dozzine di tabelle in un foglio che devono essere convertite in intervalli. Qui ho un codice VBA in grado di convertire le tabelle del foglio attivo in un intervallo contemporaneamente.
Converti tutte le tabelle in intervalli di fogli attivi con VBA
Converti tutte le tabelle in intervalli di fogli attivi con VBA
1. Attivare il foglio di cui si desidera convertire le sue tabelle, quindi premere Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Moduli per creare un nuovo script del modulo, copia e incolla il codice sottostante nel modulo vuoto.
VBA: converti tutte le tabelle del foglio attivo in intervalli
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. Stampa F5 chiave per eseguire il codice, ora tutte le tabelle del foglio corrente sono state convertite in intervalli.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!