Перейти к основному содержанию

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

В 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

doc преобразовать таблицы в диапазоны 1

3. Нажмите F5 Клавиша запуска кода, теперь все таблицы текущего листа преобразованы в диапазоны.

Лучшие инструменты для офисной работы

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I've used your code in my macro in order to convert my tables to ranges so that I can transpose the data to make it more readable;
-
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next
-
It was working right when I wrote it into the macro. For some reason when I run the macro now it gives me a run time error 1004 on xList.Unlist
-
Do you have any suggestions as to why that might be, or how to fix it? Any help would be greatly appreciated.
-
Thanks!
Sam
This comment was minimized by the moderator on the site
I've used your code in my macro in order to convert my tables to ranges so that I can transpose the data to make it more readable;
Dim xSheet As Worksheet
Dim xList As ListObject
Set xSheet = ActiveWorkbook.ActiveSheet
For Each xList In xSheet.ListObjects
xList.Unlist
Next

It was working right when I wrote it into the macro. For some reason when I run the macro now it gives me a run time error 1004 on xList.Unlist

Do you have any suggestions as to why that might be, or how to fix it?

Any help would be greatly appreciated.

Thanks!
Sam
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations