Під час роботи з Microsoft Excel фільтрація даних дозволяє нам бачити тільки ту інформацію, яку ми хочемо. Коли ми хочемо сконцентруватися на певних елементах у великому наборі даних або таблицях, ця техніка стає в нагоді. Коли робота закінчена, нам потрібно повернути ці дані в нашу електронну таблицю. Хоча Excel вже має для цього вбудований інструмент. VBA це найбільш ефективний, швидкий і безпечний спосіб виконання будь-якого завдання в Excel. У цій статті ми розглянемо кілька прикладів видалення фільтра в Excel VBA.

Завантажити Практичний посібник

Ви можете завантажити робочий зошит та потренуватися за ним.

5 простих способів видалення фільтра в Excel VBA

Excel має вбудовані інструменти і функції для видалення фільтрів з даних. Але з Excel VBA ми можемо швидко видалити ці фільтри, просто запустивши VBA Для видалення фільтрів з даних ми використаємо наступний набір даних, який містить деякі ідентифікатори товарів у стовпчику B найменування товарів у колонці C та країну поставки в колонці D Так як ми хочемо бачити тільки деталі продукту Шампунь і Кондиціонер Отже, ми їх відфільтрували. Тепер, припустимо, нам потрібно очистити ці відфільтровані дані. Ми використаємо деякі Макроси Excel VBA Для цього продемонструємо приклади очищення даних від цих фільтрів за допомогою Excel VBA .

1. Застосування VBA для видалення всіх фільтрів з таблиці Excel

З Excel VBA користувачі можуть легко скористатися кодом, який виконує роль ексель-меню зі стрічки. Для того, щоб скористатися VBA код для видалення всіх фільтрів з таблиці Excel, виконаємо кроки нижче.

КРОКИ:

• По-перше, зверніться до Розробник вкладку зі стрічки.
• По-друге, від Код категорію, натисніть на кнопку Visual Basic для відкриття Редактор Visual Basic або натисніть Alt + F11 для відкриття Редактор Visual Basic .

• Замість цього ви можете просто клацнути правою кнопкою миші на аркуші і перейти до Переглянути код Ви також зможете відвідати Редактор Visual Basic .

• Про це буде повідомлено в Редактор Visual Basic де ми записуємо наші коди для створення таблиці з діапазону.
• По-третє, натисніть на Модуль від Вставка рядок меню, що випадає.

• Це дозволить створити Модуль у вашій робочій книжці.
• І, скопіюйте та вставте VBA код, вказаний нижче.

Код VBA:

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Sheet1.ListObjects(1) lstObj.AutoFilter.ShowAllData End Sub 

• Після цього запустіть код, натиснувши на кнопку RubSub або натиснувши комбінацію клавіш F5 .

• І, нарешті, виконання цих кроків призведе до видалення всіх фільтрів з таблиці Excel на вашому робочому аркуші.

Пояснення коду VBA

 Sub Remove_Filters1() 

Sub це частина коду, яка використовується для обробки роботи в коді, але не повертає ніякого значення. Вона також відома як підпроцедура. Отже, назвемо нашу процедуру Remove_Filters1() .

 Dim lstObj As ListObject 

Оголошення змінної.

 Set lstObj = Sheet1.ListObjects(1) 

VBA Set просто дозволяє нам уникнути необхідності вводити діапазон, який нам потрібно вибрати знову і знову при виконанні коду. Отже, ми встановлюємо посилання на першу таблицю на аркуші.

 lstObj.AutoFilter.ShowAllData 

Цей рядок коду видалить всі фільтри для всіх даних.

 End Sub 

На цьому процедура буде завершена.

Читати далі: Як видалити фільтр в Excel (5 простих і швидких способів)

2. Очищення всіх фільтрів таблиці Excel на аркуші за допомогою VBA

Розглянемо ще один приклад використання Excel VBA для видалення всіх фільтрів таблиць Excel на аркуші. Для цього виконаємо наведені нижче дії.

КРОКИ:

• По-перше, зайдіть на сайт Розвивати r вкладку зі стрічки.
• По-друге, натисніть на Visual Basic для відкриття Редактор Visual Basic .
• Ще один спосіб відкрити Редактор Visual Basic це просто натиснути Alt + F11 .
• Або натисніть правою кнопкою миші на аркуші, потім виберіть Переглянути код .
• Далі перейдіть за посиланням Вставка та оберіть Модуль з випадаючого меню.
• І, це відкриє вікно візуального базового програмування.
• Після цього скопіюйте та вставте VBA код нижче.

Код VBA:

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub 

• Далі необхідно натиснути кнопку клавіша F5 або натисніть на кнопку Запустити заміну для запуску коду.

• І цей код очистить всі фільтри таблиць Excel з вашого аркуша і дасть висновок на зразок Спосіб 1 .

Пояснення коду VBA

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj 

Ці рядки коду циклічно проходять по всіх таблицях на аркуші і видаляють всі фільтри для всього аркуша.

Читати далі: Як відфільтрувати зведену таблицю Excel (8 ефективних способів)

3. Видалення фільтра зі стовпця за допомогою VBA в Excel

Розглянемо ще один спосіб очищення фільтра зі стовпця за допомогою Excel VBA. Подивимося, як це робиться.

КРОКИ:

• Для початку натисніть на кнопку Розробник вкладка на стрічці.
• По-друге, запустити Редактор Visual Basic натиснувши на Visual Basic .
• Крім того, ви можете отримати доступ до Редактор Visual Basic натиснувши на кнопку Alt + F11 .
• Або, клацніть правою кнопкою миші на аркуші та оберіть Переглянути код з меню.
• Далі оберіть пункт Модуль з випадаючого списку під Вставка .
• І з'явиться вікно візуального редактора.
• Впишіть туди код.

Код VBA:

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub 

• Нарешті, натисніть кнопку клавіша F5 для запуску коду.

• Використання цього коду видалить фільтр зі стовпця у вашій таблиці Excel.

Пояснення коду VBA

 Лист1.Діапазон("B3:D16").Автофільтр Поле:=4 

У цьому кодовому рядку вказується тільки номер поля і ніяких інших параметрів.

Читати далі: Фільтрація в Excel VBA в одному стовпці за кількома критеріями (6 прикладів)

Схожі читання

• Excel VBA: як фільтрувати за кількома критеріями в масиві (7 способів)
• Код на VBA для фільтрації даних за датою в Excel (4 приклади)
• Як використовувати фільтр у захищеному аркуші Excel (з простими кроками)
• Фільтрування різних стовпців за кількома критеріями в Excel VBA
• Код на VBA для фільтрації даних в Excel (8 прикладів)

4. очистити всі фільтри на активному аркуші

А тепер подивіться на іншу Excel VBA щоб очистити всі фільтри на активному аркуші. Давайте виконаємо ці дії.

КРОКИ:

• Для початку відкрийте стрічку та оберіть пункт Розробник варіант.
• Далі, щоб отримати доступ до Редактор Visual Basic натисніть на Visual Basic .
• Натискання Alt + F11 також підніме питання Редактор Visual Basic .
• Альтернативно, клацніть правою кнопкою миші аркуш і виберіть Переглянути код з меню, що з'явиться.
• Наразі, від Вставка випадаючий список, вибрати Модуль .
• Потім скопіюйте та вставте VBA код, який наведено нижче.

Код VBA:

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• Запустіть код, натиснувши на кнопку F5 ключ.

• І, нарешті, ви зможете видаляти фільтри з ваших даних за допомогою цього VBA код на кшталт Спосіб-1 .

Детальніше: Як відфільтрувати за списком на іншому аркуші в Excel (2 способи)

5. Excel VBA для видалення всіх фільтрів з книги

Розглянемо ще один r Excel VBA спосіб видалення всіх фільтрів з книги. Отже, давайте розглянемо кроки нижче.

КРОКИ:

• Для початку відкрийте стрічку та оберіть Розробник з випадаючого меню.
• Потім виберіть Visual Basic для відкриття Редактор Visual Basic .
• На сьогоднішній день, на жаль, це не так. Редактор Visual Basic також можна отримати, натиснувши на кнопку Alt + F11 .
• Крім того, ви можете клацніть правою кнопкою миші аркуш і виберіть Переглянути код у спливаючому меню.
• Після цього оберіть Модуль від Вставка випадаюче меню.
• Потім скопіюйте та вставте наступний код VBA.

Код VBA:

 Sub Remove_Filters_From_Workbook() Dim shtnam As Worksheet Dim lstObj As ListObject For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub 

• Нарешті, запустіть код, натиснувши F5 на клавіатурі, і ви побачите результат на своєму робочому аркуші.

• Це VBA код очистить всі фільтри з усієї книги, як показано в перший спосіб .

Пояснення коду VBA

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

Перший цикл призначений для обходу всіх таблиць робочої книги. Другий цикл призначений для обходу всіх таблиць на робочому аркуші. Далі, рядок всередині циклу просто очищає фільтр з таблиці. Після цього закриваємо цикл двома останніми рядками.

Читати далі: Ярлик для фільтра Excel (3 швидких способи використання з прикладами)

Висновок

Вищезазначені методи допоможуть вам Видалення фільтра в Excel VBA Сподіваємося, це допоможе вам! Якщо у вас виникли питання, пропозиції або відгуки, будь ласка, повідомте нам про це в розділі коментарів. Або ви можете ознайомитися з іншими нашими статтями в розділі ExcelWIKI.com блог!