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

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

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

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

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

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 для запуска кода. Теперь все таблицы в текущем листе успешно преобразованы в диапазоны.