Как да филтрирате данните в Excel с помощта на VBA

В тази статия ще научим как да филтрираме данните и след това как можем да дадем различните критерии за филтриране, като използваме VBA в Microsoft Excel 2007 и по -нова версия.

Как да поставите филтъра в данни?

За да разберете как да поставите филтъра, нека вземем пример:-

Имаме данни в диапазон A1: E35, в който колона A съдържа месец, колона B страница, колона C Кликвания, колона D CTR и колона E съдържа средна позиция.

Ако искаме да видим данните за месец януари, тогава трябва да поставим филтъра за месец януари. За да поставите филтъра през VBA, следвайте следните стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Подфилтрирани данни ()

Диапазон ("A1"). Поле за автофилтър: = 1, Критерии1: = "Ян"

End Sub

Код Обяснение:- Първо, трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това трябва да определим критериите.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим само данните за януари.

Как да поставим филтъра за най -долните 10 елемента?

За да разберете как да поставите филтъра за най-долните 10 елемента, нека вземем пример:-

Ако искаме да видим най-долните 10 кликвания в данните, тогава трябва да следваме дадените по-долу стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Sub filterbottom10 ()

Диапазон ("A1"). Поле за автофилтър: = 3, Критерии1: = "10", Оператор: = xlBottom10Items

End Sub

Код Обяснение:- Първо, трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това трябва да дефинираме критериите за филтриране на данните за най-долните 10 елемента.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим само данните от долното щракване 10.

Как да поставим филтъра за най -долните 10 процента от данните?

За да разберем как да поставим филтъра за най-ниските 10 процента от данните, нека вземем пример:-

Ако искаме да видим най-долните 10 процента данни, тогава трябва да следваме дадените по-долу стъпки:-

Отворете VBA Page и натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Подфилтър отдолу 10 процента ()

Диапазон ("A1"). Поле за автофилтър: = 3, Критерии1: = "10", Оператор: = xlBottom10Percent

End Sub

Код Обяснение:- Първо, трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това трябва да определим критериите за филтриране на данните от най-ниските 10 процента.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим само 10 % отдолу данни.

Как да поставим филтъра за най -долния X брой на данните?

За да разберете как да поставите филтъра за най-долните X числа, нека вземем пример:-

Ако искаме да видим дъното x брой данни, тогава трябва да следваме дадените по-долу стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Подфилтърбот. Номер ()

Диапазон ("A1"). Поле за автофилтър: = 3, Критерии1: = "5", Оператор: = xlBottom10Items

End Sub

Код Обяснение:- Първо трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това дадохме критериите за филтриране на 5-те числа на най-долните 10 числа.

За да стартирате макроса, натиснете клавиша F5, данните ще бъдат филтрирани и можем да видим само данните от долните 10 кликвания.

Как да поставим филтъра за най -ниските x проценти от данните?

За да разберем, че как да поставим филтъра за най-ниските x проценти от данни, нека вземем пример:-

Ако искаме да видим долните x процентни данни, тогава трябва да следваме дадените по-долу стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Допълнителен филтърдолуxpercent ()

Диапазон ("A1"). Поле за автофилтър: = 3, Критерии1: = "5", Оператор: = xlBottom10Percent

End Sub

Код Обяснение:- Първо трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това трябва да дефинираме критериите за филтриране на данните от долния x процент.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим само най -долните 10 процента данни.

Как да поставите филтъра за конкретен текст?

За да разберете как да поставите филтъра за конкретен, нека вземем пример:-

Ако искаме да видим конкретните данни само в колона B, тогава трябва да следваме дадените по-долу стъпки:-

Отворете VBA Page и натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Подспецифични данни ()

Диапазон ("A1"). Поле за автофилтър: = 2, Критерии1: = "*Exceltip*"

End Sub

Код Обяснение:- Първо трябва да изберем диапазона от данни, където ще дефинираме колоната B в полето като 2 и след това ще определим кои данни искаме да видим.

За да стартирате макроса, натиснете клавиша F5, данните ще бъдат филтрирани и можем да видим, че ще се показват само данните на Exceltip.

Как да поставите филтъра за множество критерии?

За да разберете как да поставите филтъра конкретно, нека вземем един пример:-

Ако искаме да видим данните за месец януари и март, трябва да следваме следните стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Подмножествени данни ()

Диапазон ("A1: E1"). Поле за автофилтър: = 1, Критерии1: = "Ян", Оператор: = xlAnd, Критерии2: = "Март"

End Sub

Код Обяснение:- Първо трябва да изберем диапазона от данни, където ще дефинираме колоната А в полето като 1 и след това ще дефинираме и двата критерия.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим само данните за януари и март.

Как да поставим филтъра за показване на записите, които съдържат стойност между 2 стойности?

За да разберете как да поставите филтъра за множество критерии, нека вземем пример:-

Ако искаме да поставим филтъра според критериите колко числа имаме при кликвания от 5000 до 10000, следвайте следните стъпки:-

Отворете VBA Page и натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Под множествени критерии ()

Диапазон ("A1: E1"). Поле за автофилтър: = 3, Критерии1: = "> 5000", Оператор: = xlAnd, Критерии2: = "<10000"

End Sub

Код Обяснение: - Първо трябва да изберем диапазона от данни, където ще дефинираме критериите в колона C, като използваме операторска функция.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим данните според кликванията, което е повече от 5000 и по -малко от 10000.

Как да поставите филтъра за множество критерии в множество колони?

За да разберете как да поставите филтъра за множество критерии в множество колони, нека вземем пример:-

Ако искаме да поставим филтъра през месец януари, за да видим колко връзки има в съветите на Excel, така че трябва да поставим филтъра в колони A и B, следвайте следните стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Sub MultipleFields ()

Диапазон ("A1: E1"). Поле за автофилтър: = 1, Критерии1: = "Ян"

Диапазон ("A1: E1"). Поле за автофилтър: = 2, Criteria1: = "*Exceltip*"

End Sub

Код Обяснение: - Първо, трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това ще трябва да дефинираме критериите 2 пъти, за да постигнем целта.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим колко връзки принадлежат на Exceltip в данните за месец януари.

Как да филтрирате данните, без да прилагате стрелката на филтъра?

За да разберете как да филтрирате данните, без да прилагате филтъра в колона, нека вземем един пример:-

Ако искаме да поставим филтъра за през януари месец и да скрием стрелката на филтъра в полето, следвайте следните стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Sub HideFilter ()

Диапазон ("A1"). Поле за автофилтър: = 1, Критерии1: = "Ян", видимо падащо меню: = невярно

End Sub

Код Обяснение: - Първо, трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това трябва да се уверим, че филтърът не трябва да се вижда.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани. Сега можем да видим данните само в данните за месец януари, но стрелката на филтъра няма да се появи в колоната на месеца.

Как да филтрирате данните за показване на 1 0r 2 възможни стойности?

За да разберем как да филтрираме данните, за да покажем 1 или 2 възможни стойности, нека вземем пример:-

Ако искаме да поставим филтъра през месец януари и да скрием стрелката на филтъра в полето, трябва да следваме дадените по-долу стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Sub HideFilter ()

Диапазон ("A1"). Поле за автофилтър: = 1, Критерии1: = "Ян", видимо падащо меню: = невярно

End Sub

Код Обяснение: - Първо, трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това ще се уверим, че филтърът не трябва да се вижда.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани. Сега можем да видим данните в данните за месец януари и данните за месец февруари.

Как да поставим филтъра за топ 10 елемента?

За да разберете как да поставите филтъра за топ 10 елемента, нека вземем един пример:-

Ако искаме да видим първите 10 кликвания в данните, тогава трябва да следваме дадените по-долу стъпки:-

Отворете VBA Page и натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Sub filtertop10 ()

Диапазон ("A1"). Поле за автофилтър: = 3, Критерии1: = "10", Оператор: = xlTop10Items

End Sub

Обяснение на кода- Първо, трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това трябва да определим критериите за филтриране на данните от първите 10 елемента.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани и можем да видим само данните за първите 10 щраквания.

Как да поставим филтъра за топ 10 процента от данните?

За да разберете как да поставите филтъра за топ 10 процента от данните, нека вземем един пример:-

Ако искаме да видим първите 10 процента данни, тогава трябва да следваме дадените по-долу стъпки:-

Отворете VBA страница, натиснете клавиша Alt+F11.
Поставете модул.
Напишете кода по -долу:

Под -филтър 10 процента ()

Диапазон ("A1"). Поле за автофилтър: = 3, Критерии1: = "10", Оператор: = xlTop10Percent

End Sub

Код Обяснение:- Първо трябва да изберем диапазона от данни, където искаме да поставим филтъра, а след това трябва да дефинираме критериите за филтриране на данните от топ 10 процента.

За да стартирате макроса, натиснете клавиша F5 и данните ще бъдат филтрирани. Сега можем да видим само топ 10 процента данни.