Jak przekonwertować wszystkie tabele na zakresy w aktywnym arkuszu?
W programie Excel możesz używać niektórych tabel do rejestrowania danych, ale czasami chcesz przekonwertować tabelę na zakres, aby przeprowadzić edycję. Ogólnie rzecz biorąc, możesz tylko raz przekonwertować jedną tabelę na zakres, będzie to kłopotliwe, jeśli w arkuszu są dziesiątki tabel, które trzeba przekonwertować na zakresy. Tutaj mam kod VBA, który może jednocześnie konwertować tabele aktywnego arkusza na zakres.
Konwertuj wszystkie tabele na zakresy aktywnego arkusza za pomocą VBA
Konwertuj wszystkie tabele na zakresy aktywnego arkusza za pomocą VBA
1. Aktywuj arkusz, który chcesz przekonwertować jego tabele, a następnie naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Moduł aby utworzyć nowy skrypt modułu, skopiuj i wklej poniższy kod do pustego modułu.
VBA: Konwertuj wszystkie tabele aktywnego arkusza na zakresy
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. naciśnij F5 klucz do uruchomienia kodu, teraz wszystkie tabele bieżącego arkusza zostały przekonwertowane na zakresy.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!