Таблицу преобразовать в диапазон

Пользователь

Сообщений: 250 Регистрация: 01.01.1970

30.09.2017 07:27:08

Всем доброго времени суток.
Как преобразовать таблицу на листе в диапазон с помощью макроса.
Пробовал записать через макрокодер, но он окромя выделения ячейки не чего не пишет.
Что в итоге: я перешел на страницу запустил макрос, он выделил таблицу (одна на странице) и преобразовал её в диапазон.

Прикрепленные файлы

пример.xlsx (11.96 КБ)

Sanja

Модератор

Сообщений: 19424 Регистрация: 10.01.2013

30.09.2017 08:51:42

Если 'умная таблица' на листе одна, то ее можно и не выделять

Код
Sub ActiveObjUnlist() ActiveSheet.ListObjects(1).Unlist End Sub

Преобразует ВСЕ 'умные таблицы' на ВСЕХ листах в диапазоны

Код
Sub UnListObj() Dim Sh As Worksheet Dim iObj As ListObject For Each Sh In Worksheets For Each iObj In Sh.ListObjects iObj.Unlist Next Next End Sub

Изменено: Sanja - 30.09.2017 08:55:48

Согласие есть продукт при полном непротивлении сторон

Николай Пользователь Сообщений: 250 Регистрация: 01.01.1970	#3 30.09.2017 13:14:57 Sanja, Благодарю. Решение с преобразованием всех таблиц то что надо.

Читают тему