Очистка фильтра в текущем столбце

Макрос (горячая клавиша) для сброса фильтра в текущем столбце таблицы

Простая идея для создания собственного сочетания клавиш для быстрой очистки условия фильтра в текущем столбце таблицы. Все использованные команды изучаются на курсе Excel-XL: Макросы VBA Excel с нуля (24 ак.ч.)

Как сбросить фильтр только в одном столбце таблицы? Горячей клавишей! Сделать её очень просто.

Эта функция будет считать количество уникальных элементов (значений) в списке, в том числе отфильтрованном. Это могут быть даты, текст, числа - всё, что угодно.
Чтобы забрать эту функцию в свой файл, сделайте следующее:

Инструкция в картинках - см. пост у меня в Instagram: НАЖМИТЕ ЗДЕСЬ

По уровню сложности такой макрос Вы сможете написать после моего курса «Макросы на VBA с нуля».

 

Sub ClearFilterCurrentColumn()

     Set Rng = ActiveCell.CurrentRegion 'автоопределение адреса таблицы

     n1 = Rng.Column 'номер первого столбца таблицы
     n2 = ActiveCell.Column 'номер столбца с активной ячейкой в таблице
     n = n2 - (n1 - 1) 'номер столбца с активной ячейкой на листе

     Rng.AutoFilter Field:=n 'сброс фильтра в столбце
End Sub