Як перетворити всі таблиці на діапазони в активному аркуші?
В Excel ви можете використовувати деякі таблиці для запису даних, але іноді потрібно перетворити таблицю на діапазон для виконання певного видання. Як правило, можна лише один раз перетворити одну таблицю в діапазон, це складно, якщо на аркуші є десятки таблиць, які потрібно перетворити в діапазони. Тут у мене є код VBA, який може одночасно перетворювати таблиці активного аркуша в діапазон.
Перетворити всі таблиці на діапазони активного аркуша за допомогою VBA
Перетворити всі таблиці на діапазони активного аркуша за допомогою VBA
1. Активуйте аркуш, для якого потрібно перетворити його таблиці, а потім натисніть Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі щоб створити новий сценарій модуля, скопіюйте та вставте код нижче в порожній модуль.
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 для запуску коду, тепер усі таблиці поточного аркуша перетворені в діапазони.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!