Как преобразовать все таблицы на активном листе в диапазоны?
В 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, чтобы выполнить код. Теперь все таблицы на текущем листе успешно преобразованы в диапазоны.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек