Как преобразовать все таблицы в диапазоны в активном листе?

В Excel вы можете использовать некоторые таблицы для записи данных, но в некоторых случаях вам нужно преобразовать таблицу в диапазон для выполнения некоторого редактирования. Как правило, вы можете преобразовать только одну таблицу в диапазон один раз, это будет проблематично, если на листе есть десятки таблиц, которые необходимо преобразовать в диапазоны. Здесь у меня есть код VBA, который может сразу конвертировать таблицы активного листа в диапазон.

Преобразование всех таблиц в диапазоны активного листа с помощью VBA

Преобразование всех таблиц в диапазоны активного листа с помощью VBA

1. Активируйте лист, таблицы которого вы хотите преобразовать, затем нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули чтобы создать новый скрипт модуля, скопируйте и вставьте приведенный ниже код в пустой модуль.

VBA: преобразовать все таблицы активного листа в диапазоны

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. Нажмите F5 Клавиша запуска кода, теперь все таблицы текущего листа преобразованы в диапазоны.