Wie konvertiere ich alle Tabellen in Bereiche im aktiven Arbeitsblatt?
In Excel können Sie einige Tabellen zum Aufzeichnen von Daten verwenden, aber manchmal möchten Sie die Tabelle für einige Editionen in einen Bereich konvertieren. Im Allgemeinen können Sie eine Tabelle nur einmal in einen Bereich konvertieren. Dies ist problematisch, wenn in einem Blatt Dutzende von Tabellen in Bereiche konvertiert werden müssen. Hier habe ich einen VBA-Code, der Tabellen von aktiven Blättern sofort in Bereich konvertieren kann.
Konvertieren Sie alle Tabellen mit VBA in Bereiche des aktiven Blattes
Konvertieren Sie alle Tabellen mit VBA in Bereiche des aktiven Blattes
1. Aktivieren Sie das Blatt, dessen Tabellen Sie konvertieren möchten, und drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul Um ein neues Modulskript zu erstellen, kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modul ein.
VBA: Konvertiert alle Tabellen des aktiven Blattes in Bereiche
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. Drücken Sie F5 Schlüssel zum Ausführen des Codes, jetzt wurden alle Tabellen des aktuellen Blattes in Bereiche konvertiert.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!