Hoe converteer ik alle tabellen naar bereiken in een actief werkblad?
In Excel kunt u sommige tabellen gebruiken om gegevens vast te leggen, maar in sommige gevallen wilt u de tabel naar een bereik converteren om een bewerking uit te voeren. Over het algemeen kunt u slechts één keer een tabel naar een bereik converteren, het zal lastig zijn als er tientallen tabellen in een blad moeten worden geconverteerd naar bereiken. Hier heb ik een VBA-code die tabellen met actief blad in één keer in bereik kan converteren.
Converteer alle tabellen naar reeksen van actief blad met VBA
Converteer alle tabellen naar reeksen van actief blad met VBA
1. Activeer het blad waarvan u de tabellen wilt converteren, en druk vervolgens op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module Om een nieuw modulescript te maken, kopieer en plak je onderstaande code in de lege module.
VBA: converteer alle tabellen met een actief blad naar bereiken
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. druk op F5 sleutel om de code uit te voeren, nu zijn alle tabellen van het huidige blad geconverteerd naar bereiken.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!