Как да премахнете филтъра в Excel VBA (5 прости метода)

Hugh West

18-10-2023 Макроси & Excel VBA
  • Споделя Това
Hugh West

Докато работите с Microsoft Excel , филтрирането на данните ни позволява да виждаме само информацията, която искаме. Винаги, когато искаме да се концентрираме върху определени елементи в голям набор от данни или таблици, тази техника е полезна. Когато работата приключи, трябва да върнем тези данни в нашата електронна таблица. въпреки че Excel вече има вграден инструмент за това. Но VBA е най-ефективният, спестяващ време и сигурен начин за изпълнение на всяка задача в Excel. В тази статия ще дадем няколко примера за премахване на филтъра в Excel VBA.

Изтегляне на работна тетрадка за практика

Можете да изтеглите работната тетрадка и да се упражнявате с тях.

VBA за премахване на Filter.xlsm

5 прости метода за премахване на филтър в Excel VBA

Excel разполага с вградени инструменти и функции за премахване на филтри от данните. Но с Excel VBA можем бързо да премахнем тези филтри, като стартираме VBA За да премахнем филтрите от данните, ще използваме следния набор от данни. Наборът от данни съдържа някои идентификатори на продукти в колона B , имена на продукти в колона C , а страната на доставка - в колона D . Тъй като искаме да видим само подробностите за продукта Шампоан и Балсам , така че ги филтрирахме. Сега, да предположим, че трябва да изчистим тези филтрирани данни. Ще използваме някои Макроси на Excel VBA Нека демонстрираме примерите за изчистване на тези филтри от данните с помощта на Excel VBA .

1. Прилагане на VBA за премахване на всички филтри от таблицата на Excel

С Excel VBA , потребителите могат лесно да използват кода, който действа като менюта на Excel от лентата. за да използвате 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()

Под е част от кода, която се използва за обработка на работата в кода, но няма да върне никаква стойност. Известна е също като подпроцедура. Така че наричаме нашата процедура Премахване на филтри1() . 

 Dim lstObj като ListObject

Декларация на променлива. 

 Set lstObj = Sheet1.ListObjects(1)

VBA Set просто ни позволява да избегнем необходимостта да въвеждаме отново и отново диапазона, който трябва да изберем, когато изпълняваме кода. Така че задаваме препратка към първата таблица в листа. 

 lstObj.AutoFilter.ShowAllData

Този ред от кода ще премахне всички филтри за всички данни. 

 Край на Sub

Това ще доведе до приключване на процедурата.

Прочетете още: Как да премахнете филтъра в Excel (5 лесни & бързи начини)

2. Изчистване на всички филтри на таблицата на Excel в лист с помощта на VBA

Нека разгледаме друг пример за използване на Excel VBA за премахване на всички филтри на таблица на Excel в даден лист. За целта следвайте стъпките по-долу.

СТЪПКИ:

  • Първо, отидете в Разработване на r от лентата.
  • Второ, щракнете върху Visual Basic за да отворите Редактор на Visual Basic .
  • Друг начин за отваряне на Редактор на Visual Basic е просто да натиснете Alt + F11 .
  • Или щракнете с десния бутон на мишката върху листа, след което изберете Вижте кода .
  • След това отидете в Вмъкване на и изберете Модул от падащото меню.
  • Това ще отвори прозореца на Visual Basic.
  • След това копирайте и поставете Код VBA по-долу.

Код VBA: 

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub
  • Освен това натиснете бутона Клавиш F5 или кликнете върху Изпълнявайте функцията Run Sub за да стартирате кода.

  • И този код ще изчисти всички филтри на таблицата на Excel от вашия лист и ще даде резултат като Метод 1 .

Обяснение на кода VBA 

 За всеки lstObj в Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Следващ lstObj

Тези редове от кода преминават през всички таблици в листа и премахват всички филтри за целия работен лист.

Прочетете още: Как да филтрирате таблицата Excel Pivot (8 ефективни начина)

3. Премахване на филтър от колона с VBA в Excel

Нека разгледаме друг начин за изчистване на филтър от колона с Excel VBA. Нека видим процедурата за това.

СТЪПКИ:

  • За да започнете, щракнете върху Разработчик в лентата.
  • Второ, стартирайте Редактор на Visual Basic като кликнете върху Visual Basic .
  • Като алтернатива можете да получите достъп до Редактор на Visual Basic като натиснете Alt + F11 .
  • Или, щракване с десния бутон на мишката върху на листа и изберете Вижте кода от менюто.
  • След това изберете Модул от падащото поле под Вмъкване на .
  • Ще се появи прозорецът на Visual Basic.
  • Напишете кода там.

Код VBA: 

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub
  • Накрая натиснете бутона Клавиш F5 за да стартирате кода.

  • Използването на този код ще премахне филтъра от колона в таблицата на Excel.

Обяснение на кода VBA 

 Sheet1.Range("B3:D16").AutoFilter Поле:=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 

 За всеки shtnam В работни листове За всеки lstObj В shtnam.ListObjects lstObj.AutoFilter.ShowAllData Следваща lstObj Следваща shtnam

Първият цикъл е за преминаване през всички таблици в работната книга. Вторият цикъл е за преминаване през всички таблици в работния лист. След това редът вътре в цикъла просто изчиства филтъра от таблицата. След това затворете цикъла с последните два реда.

Прочетете още: Пряк път за филтър на Excel (3 бързи приложения с примери)

Заключение

Горните методи ще ви помогнат да Премахване на филтър в Excel VBA . Надявам се, че това ще ви помогне! Ако имате въпроси, предложения или обратна връзка, моля, уведомете ни в раздела за коментари. Или можете да хвърлите поглед на другите ни статии в ExcelWIKI.com блог!

Предишна публикация Как да добавяте редове в Excel с формула (5 начина)
Следваща публикация Как да разделите клетка на два реда в Excel (3 начина)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.