Как обновить фильтр в excel
Hey this works great but I'd like to re-apply the autofilter to multiple sheets if possible.
I have 3 sheets (Enquiry, Booked, No sale)
What I'm trying to do is essentially move the data when I change the item status code:
"Enquiry" is filtered to show 'In progress' only, "Booked" is filtered to show 'Booked' only etc
Is there a way to re-apply filter to multiple worksheets when making a change on "enquiry"
I actually have data from an other Excel file that got imported in a Excelsheet with the name "Database". Then I import this data in the same Excel file but in an other ExcelSheet "Overview". I want when the data changes in the orgininal source, that the filter applies in the sheet "Overview". Thank you in forward for the one who can help me :). P.S. cant use VBA in the firt excelsheetThis is a great bit of code thank you. The only issue I am having is I'm using a drop down on a separate chart sheet. If I manually change the value in the cell associated with the drop down, it works. But when I try to just use the drop down, it won't update. Any thoughts?
Hi, thanks so much for the help. Something isn't working right for me. Here's the story.
Sheet1 has variable data. Sheet3 has static data and filter. Filter criteria on "Sheet3" comes from Sheet1. Sheet1 has data that comes from filtered results on Sheet3.
Sheet3 has code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:U14").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A22:U23"), CopyToRange:=Range("A25:U26"), Unique:=False
End Sub
It works great if I do anything on Sheet3. No problems. Thank you!
At first I had code on Sheet1:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub
Which resulted in the error "Runtime error 91, Object Variable or With Block not Set".
I changed the code based on comments to be:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub
Now I don't get an error, but the data on Sheet3 and therefore Sheet1 don't change. In other words, the event of applying the filter to Sheet3 doesn't occur when I make a change on Sheet1. It doesn't matter if I hit <return> or click on another cell after changing the Sheet3 filter criteria cell that is set on Sheet1.
As an aside, I expect that if I wanted to have multiple cells on Sheet1 that caused filters on Sheets 4 and 5 in addition to Sheet3, I would need the code on Sheet 1 to read:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheets("Sheet3").AutoFilter.ApplyFilter
Sheets("Sheet4").AutoFilter.ApplyFilter
Sheets("Sheet5").AutoFilter.ApplyFilter
End Sub
any suggestions
This code works great, thanks a lot.
I, however, have one small issue with it - if I change values in any cell that is not part of the table, I am presented with Runtime error saying:
"Run-time error '91':
Object variable or With block variable not set up"
I have options to Debug or End, option to Continue is greyed out. I can click on "End" and the code still works, however it is very annoying having to deal with this popup window after every change.
Anybody has similar experience or a suggestion about how to sort this?
Hello, David,
To solve your problem, you may apply the following code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub
Please try it, hope it can help you!
I have implemented your solution and it is indeed fixed.
Hi, this seems to work great but I am having problems when there are more than one filter on the same worksheet (tab). I converted the range of cells to a table to allow separate and multiple filters within the same worksheet. This example only appears to update one of the tables/filters. Any suggestions on how to update ALL tables/filters within a worksheet?
Hi, Tom,The code in this article works well for multiple tables within a worksheet, you just need to press Enter key after changing the data instead of click to other cell.
Please try it.
Hi, that works great, however only when manually changing data in the table.
I have a ‘top ten/leader board’ style filtered table which is populated from data entry on a separate worksheet (actually the data goes through 3 worksheets before getting to the table). When the data is changed in the data entry worksheet the leader board table figures updates however the filter doesn’t auto refresh.
Any ideas on how to do that?
Much Obliged.
Alex
Hello, Chris,
May be, the following article can solve your problem, please view:
This solution works perfectly. Thanks for writing it up! If anyone is having trouble, there are a few things to consider.
First, the Worksheet_Change event is called on a sheet-by-sheet basis. This means if you have multiple sheets which have filters you need updated, you will need to respond to all those events. One Worksheet_Change subroutine for each worksheet, not one subroutine for the entire workbook (one exception - see note below).
Second, and a follow-on to the first, the code must be placed in the code module specific to the worksheet to be monitored. Its easy to (inadvertently) switch code modules once you get into the VB editor, so care must be taken to place it specific to the sheet you want to monitor for data changes.
Third, this is unconfirmed, but possibly a point of error. The example uses sheet names of "Sheet1", "Sheet2", etc. If you've renamed the sheets, you may need to update the code. Note in the example, Sheet7 has been given the name "dfdf". If you wanted to update the filter there, you'd need to use;
Sheets("dfdf").AutoFilter.ApplyFilter
not;
Sheets("Sheet7").AutoFilter.ApplyFilter
It might be good to update the article including an example with a renamed sheet.
Finally, if you want to monitor one sheet for data changes, but update filters on multiple sheets, then you only need one subroutine, placed in the code module of the worksheet you are monitoring. The code will look something like this;
После фильтрации или сортировки данных в диапазоне ячеек или столбце таблицы вы можете повторно использовать фильтр или выполнить сортировку, чтобы получить последние результаты, или очистить фильтр, чтобы снова отфильтровать все данные.
Примечание: При сортировке нельзя очистить порядок сортировки и восстановить порядок, который был раньше. Однако перед сортировкой можно добавить столбец, содержащий произвольные значения, чтобы сохранить исходный порядок сортировки, например номера с приращением. Затем можно отсортировать столбец, чтобы восстановить исходный порядок сортировки.
В этой статье
Подробнее о повторном повторном повторном фильтрации и сортировке
Чтобы определить, применяется ли фильтр, обратите внимание на значок в заголовке столбца:
Стрелка вниз означает, что фильтрация включена, но фильтр не применяется.
Совет: Если наведите курсор на заголовок столбца с включенной фильтрацией, но не примененной, на экране появляется подсказка "(Показывать все)".
Кнопка Фильтр означает, что фильтр применяется.
Совет: Когда вы наводите курсор на заголовок отфильтрованного столбца, на подсказке отображается описание примененного к этому столбцу фильтра, например "Равно красному цвету ячейки" или "Больше 150".
При повторном анализе фильтра или сортировки отображаются разные результаты по следующим причинам:
Данные были добавлены, изменены или удалены из диапазона ячеек или столбца таблицы.
Фильтр является динамическим фильтром даты и времени, таким как "Сегодня","Наэтой неделе" или "Год к дате".
значения, возвращаемые формулой, изменились, и лист был пересчитан.
Примечание: При использовании диалогового окна Найти для поиска отфильтрованных данных поиск ведется только по отображаемой информации. данные, которые не отображаются, не поиск не ведется. Чтобы найти все данные, очистка всех фильтров.
Повторное повторное фильтрация или сортировка
Примечание: При работе с таблицей условия фильтрации и сортировки сохраняются вместе с книгой, так что каждый раз при ее открытие можно повторно использовать фильтр и сортировать их. Однако для диапазона ячеек в книге сохраняются только условия фильтрации, а не условия сортировки. Если вы хотите сохранить условия сортировки для их повторного применения при открытии книги, рекомендуем вам использовать таблицу. Это особенно важно при сортировке по нескольким столбцам или сортировке, настройка которой занимает много времени.
Чтобы повторно отфильтровать или отсортировать фильтр, на вкладке Главная в группе Редактирование нажмите кнопку Сортировка & фильтри выберите повторно.
Очистка фильтра для столбца
Чтобы очистить фильтр для одного столбца в многостороном диапазоне ячеек или таблицы, нажмите кнопку Фильтр заголовке и выберите очистить фильтр из <имя столбца>.
Примечание: Если фильтр в данный момент не применен, эта команда недоступна.
Очистка всех фильтров и повторная отрисовка всех строк
На вкладке Главная в группе Редактирование нажмите кнопку Сортировка & фильтри выберите очистить.
С помощью автофилеров или встроенных операторов сравнения, таких как "больше" и "10 лучших" в Excel вы можете показать нужные данные и скрыть остальные. После фильтрации данных в диапазоне ячеек или таблице вы можете повторно использовать фильтр, чтобы получить последние результаты, или очистить фильтр, чтобы повторно отфильтровать все данные.
Используйте фильтры, чтобы временно скрывать некоторые данные в таблице и видеть только те, которые вы хотите.
Фильтрация диапазона данных
Выберите любую ячейку в диапазоне данных.
Выберите Фильтр> данных.
Выберите стрелку в столбце .
Выберите Текстовые фильтры или Числовое фильтры, а затем выберите сравнение, например Между.
Введите условия фильтрации и нажмите кнопку ОК.
Фильтрация данных в таблице
При вводе данных в таблицу в заголовки ее столбцов автоматически добавляются элементы управления фильтрацией.
Выберите стрелку в столбца, который вы хотите отфильтровать.
Сберем (Выберите все) и выберем поля, которые вы хотите отобрать.
Стрелка загона столбца меняется на фильтра. Щелкните этот значок, чтобы изменить или очистить фильтр.
Статьи по теме
Отфильтрованные данные отображают только строки, которые соответствуют условия и скрывают строки, которые отображать не нужно. Фильтруя данные, вы можете копировать, находить, изменять, форматирование, диаграммы и печатать подмножество отфильтрованных данных, не меняя их оголовье и не перемещая.
Вы также можете отфильтровать несколько столбцов. Фильтры являются аддитивно, то есть каждый дополнительный фильтр основан на текущем фильтре и дополнительно уменьшает подмножество данных.
Примечание: При использовании диалогового окна Найти для поиска отфильтрованных данных поиск ведется только по отображаемой информации. данные, которые не отображаются, не поиск не ведется. Чтобы найти все данные, очистка всех фильтров.
Два типа фильтров
С помощью автофильтра можно создать два типа фильтров: по значению списка или по условиям. Каждый из этих типов фильтров является взаимоисключающими для каждого диапазона ячеек или таблицы столбцов. Например, можно отфильтровать значения по списку чисел или по критерию, но не по обоим критериям. можно фильтровать по значкам или по настраиваемой фильтрации, но не по обоим.
Повторное присвоение фильтра
Чтобы определить, применяется ли фильтр, обратите внимание на значок в заголовке столбца:
Стрелка вниз означает, что фильтрация включена, но не применена.
Если наведите курсор на заголовок столбца с включенной фильтрацией, но не примененной, на экране появляется подсказка "(Отображает все)".
Кнопка Фильтр означает, что применяется фильтр.
Когда вы наводите курсор на заголовок отфильтрованного столбца, на подсказке отображается примененный к этому столбец фильтр, например "Равно красному цвету ячейки" или "Больше 150".
При повторном его повторном анализе отображаются разные результаты по следующим причинам:
Данные были добавлены, изменены или удалены в диапазон ячеек или столбец таблицы.
значения, возвращаемые формулой, изменились, и лист был пересчитан.
Не смешивать типы данных
Для лучших результатов не смешивайте типы данных, такие как текст и число, число и дата в одном столбце, так как для каждого столбца доступна только одна команда фильтра. Если имеется сочетание типов данных, отображаемая команда является самым распространенным типом данных. Например, если столбец содержит три значения, сохраненные как число, и четыре значения как текст, отображается команда Текстовые фильтры.
Фильтрация данных в таблице
При вводе данных в таблицу в заголовки ее столбцов автоматически добавляются элементы управления фильтрацией.
Выделите данные, которые нужно отфильтровать. На вкладке Главная нажмите кнопку Форматировать как таблицу и выберите команду Форматировать как таблицу.
В диалоговом окне Создание таблицы можно выбрать, есть ли в таблице заглавные таблицы.
Выберите Таблица с заголовками, чтобы преобразовать верхнюю строку в заголовки таблицы. Данные в этой строке не будут фильтроваться.
Не выбирайте этот пункт, если вы хотите Excel в Интернете в таблицу под данными таблицы, которые можно переименовать.
Чтобы применить фильтр, щелкните стрелку в заголовке столбца и выберите параметр фильтрации.
Фильтрация диапазона данных
Если вы не хотите форматирование данных в виде таблицы, вы также можете применить фильтры к диапазону данных.
Выделите данные, которые нужно отфильтровать. Для лучшего результата столбцы должны иметь заголовки.
На вкладке Данные выберите фильтр.
Параметры фильтрации для таблиц или диапазонов
Можно применить общий фильтр, выбрав пункт Фильтр, или настраиваемый фильтр, зависящий от типа данных. Например, при фильтрации чисел отображается пункт Числовые фильтры, для дат отображается пункт Фильтры по дате, а для текста — Текстовые фильтры. Применяя общий фильтр, вы можете выбрать для отображения нужные данные из списка существующих, как показано на рисунке:
Выбрав параметр Числовые фильтры вы можете применить один из перечисленных ниже настраиваемых фильтров.
В этом примере, чтобы отобрать регионы, в которых сумма продаж за март была меньше 6000, можно применить настраиваемый фильтр:
Вот как это сделать.
Щелкните стрелку фильтра в ячейке со словом "Март", выберите пункт Числовые фильтры и условие Меньше и введите значение 6000.
Excel в Интернете применяет фильтр и отображает только регионы с продажами ниже 6000 рублей.
Аналогичным образом можно применить фильтры по дате и текстовые фильтры.
Очистка фильтра из столбца
Удаление всех фильтров из таблицы или диапазона
Выберите любую ячейку в таблице или диапазоне и на вкладке Данные нажмите кнопку Фильтр.
При этом фильтры будут удаляться из всех столбцов таблицы или диапазона и вывести все данные.
Щелкните ячейку в диапазоне или таблице, которую хотите отфильтровать.
На вкладке Данные щелкните Фильтр.
Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.
В разделе Фильтр щелкните Выберите один из вариантов и введите условия фильтра.
Фильтры можно применить только к одному диапазону ячеек на листе за раз.
Когда фильтр применяется к столбцу, в других столбцах в качестве фильтров можно использовать только значения, видимые в текущем отфильтрованном диапазоне.
В окне фильтра отображаются только первые 10 000 уникальных записей списка.
Фильтрация по конкретному числу или диапазону чиселЩелкните ячейку в диапазоне или таблице, которую хотите отфильтровать.
На вкладке Данные щелкните Фильтр.
Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.
В разделе Фильтр щелкните Выберите один из вариантов и введите условия фильтра.
В поле рядом с всплывающим меню введите число, которое хотите использовать.
В зависимости от сделанного выбора вам может быть предложено выбрать дополнительные условия.
Фильтры можно применить только к одному диапазону ячеек на листе за раз.
Когда фильтр применяется к столбцу, в других столбцах в качестве фильтров можно использовать только значения, видимые в текущем отфильтрованном диапазоне.
В окне фильтра отображаются только первые 10 000 уникальных записей списка.
Вместо фильтрации можно использовать условное форматирование, которое позволяет четко выделить верхние или нижние числовые значения среди данных.
Фильтрация по цвету шрифта, цвету ячеек или наборам значковДанные можно быстро фильтровать на основании визуальных условий, таких как цвет шрифта, цвет ячейки или наборы значков. Можно также фильтровать ячейки по наличию в них формата, примененных стилей или условного форматирования.
В диапазоне ячеек или столбце таблицы щелкните ячейку с определенным цветом, цветом шрифта или значком, по которому вы хотите выполнить фильтрацию.
На вкладке Данные щелкните Фильтр.
Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.
В разделе Фильтр во всплывающем меню По цвету щелкните Цвет ячейки, Цвет шрифта или Значок ячейки и выберите цвет.
Это возможно только в случае, если фильтруемый столбец содержит пустую ячейку.
Щелкните ячейку в диапазоне или таблице, которую хотите отфильтровать.
На панели инструментов Данные щелкните Фильтр.
Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.
В области (Выделить все) прокрутите список вниз и установите флажок (Пустые).
Фильтры можно применить только к одному диапазону ячеек на листе за раз.
Когда фильтр применяется к столбцу, в других столбцах в качестве фильтров можно использовать только значения, видимые в текущем отфильтрованном диапазоне.
В окне фильтра отображаются только первые 10 000 уникальных записей списка.
Щелкните ячейку в диапазоне или таблице, которую хотите отфильтровать.
На вкладке Данные щелкните Фильтр.
Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.
В разделе Фильтр щелкните Выберите один из вариантов и во всплывающем меню выполните одно из указанных ниже действий.
Цель фильтрации диапазона
Строки с определенным текстом
Содержит или Равно.
Строки, не содержащие определенный текст
Не содержит или Не равно.
В поле рядом с всплывающим меню введите текст, которое хотите использовать.
В зависимости от сделанного выбора вам может быть предложено выбрать дополнительные условия.
Фильтрация столбца или выделенного фрагмента таблицы при истинности обоих условий
Фильтрация столбца или выделенного фрагмента таблицы при истинности одного из двух или обоих условий
Щелкните ячейку в диапазоне или таблице, которую хотите отфильтровать.
На панели инструментов Данные щелкните Фильтр.
Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.
В разделе Фильтр щелкните Выберите один из вариантов и во всплывающем меню выполните одно из указанных ниже действий.
Условие фильтрации
Начало строки текста
Начинается с.
Окончание строки текста
Заканчивается на.
Ячейки, которые содержат текст, но не начинаются с букв
Не начинаются с.
Ячейки, которые содержат текст, но не оканчиваются буквами
Не заканчиваются.
В поле рядом с всплывающим меню введите текст, которое хотите использовать.
В зависимости от сделанного выбора вам может быть предложено выбрать дополнительные условия.
Фильтрация столбца или выделенного фрагмента таблицы при истинности обоих условий
Фильтрация столбца или выделенного фрагмента таблицы при истинности одного из двух или обоих условий
Использование подстановочных знаков для фильтрацииПри создании условий можно использовать подстановочные знаки.
Щелкните ячейку в диапазоне или таблице, которую хотите отфильтровать.
На панели инструментов Данные щелкните Фильтр.
Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.
В разделе Фильтр щелкните Выберите один из вариантов и выберите вариант.
В текстовом поле введите свои условия, используя подстановочные знаки.
Например, чтобы в результате фильтрации найти оба слова "год" и "гид", введите г?д.
Выполните одно из указанных ниже действий.
Используемый знак
Чтобы найти
Пример: условию "стро?а" соответствуют результаты "строфа" и "строка"
Любое количество символов
Пример: условию "*-восток" соответствуют результаты "северо-восток" и "юго-восток"
Вопросительный знак или звездочка
Выполните одно из указанных ниже действий.
Удаление определенных условий фильтрации
Щелкните стрелку столбце, который содержит фильтр, и выберите очистить фильтр.
Удаление всех фильтров, примененных к диапазону или таблице
Выделите столбцы диапазона или таблицы, к которым применяются фильтры, а затем на вкладке Данные щелкните Фильтр.
Удаление или повторное применение стрелок фильтра в диапазоне или таблице
Выделите столбцы диапазона или таблицы, к которым применяются фильтры, а затем на вкладке Данные щелкните Фильтр.
При фильтрации данных появляются только данные, которые соответствуют вашим условиям. Данные, которые не соответствуют этому критерию, скрыты. После фильтрации данных можно копировать, находить, изменять, форматирование, диаграммы и печатать подмножество отфильтрованных данных.
Таблица с примененным фильтром "4 самых верхних элементов"
Фильтры забавляются. Это означает, что каждый дополнительный фильтр основан на текущем фильтре и дополнительно уменьшает подмножество данных. Сложные фильтры можно отфильтровать по одному значению, по одному формату или по одному критерию. Например, можно отфильтровать все числа больше 5, которые также ниже среднего. Но некоторые фильтры (десять верхних и нижних, выше и ниже среднего) основаны на исходном диапазоне ячеек. Например, при фильтрации десяти лучших значений вы увидите десять лучших значений всего списка, а не десять лучших значений подмножество последнего фильтра.
В Excel можно создавать фильтры трех типов: по значениям, по формату или по условиям. Но каждый из этих типов фильтров является взаимоисключающими. Например, можно отфильтровать значения по цвету ячейки или по списку чисел, но не по обоим. Вы можете фильтровать по значкам или по настраиваемой фильтрации, но не по обоим.
Фильтры скрывают лишние данные. Таким образом можно сосредоточиться на том, что вы хотите видеть. С другой стороны, при сортировке данных их порядок будет меняться. Дополнительные сведения о сортировке см. в списке сортировки данных.
При фильтрации рассмотрите следующие рекомендации:
В окне фильтра отображаются только первые 10 000 уникальных записей списка.
Можно отфильтровать несколько столбцов. Когда фильтр применяется к столбцу, в других столбцах в качестве фильтров можно использовать только значения, видимые в текущем отфильтрованном диапазоне.
Фильтры можно применить только к одному диапазону ячеек на листе за раз.
Примечание: При использовании поиска найти для поиска отфильтрованных данных поиск ведется только по отображаемой информации; данные, которые не отображаются, не поиск не ведется. Чтобы найти все данные, очистка всех фильтров.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Как автоматически обновить автофильтр Excel при изменении данных?
Вариант использования: я изменяю значение одной ячейки на значение, которое было отфильтровано. Я хочу, чтобы текущая строка исчезла без необходимости делать что-либо еще.
Обмен кода с этим, похоже, тоже помогает (по крайней мере, в Excel 2010):
Я обнаружил, что когда я работал с таблицами, это не сработало. Фильтр был не на листе, а на столе. этот код добился цели
Я также использую VBA/Macro на основе события Worksheet_Change , но мой подход немного отличается . Хорошо, сначала код, а затем объяснения:
(Используйте комбинацию клавиш Alt + F11, чтобы отобразить панель разработки, и вставьте код на лист, содержащий фильтр, который вы хотите автоматически обновить.)
Поле является целочисленным смещением диапазона. В моем случае у меня только фильтр с одним столбцом, а диапазон создается одним столбцом (L), который является первым в диапазоне (поэтому я использую 1 в качестве значения).
Критерии - это строка, описывающая фильтр, применяемый к диапазону данных. В моем примере я хочу показать только те строки, где столбец L отличается от 0 (поэтому я использовал «<> 0»).
Щелкните правой кнопкой мыши на имени вашего листа, выберите "Просмотр кода" и вставьте код ниже. После вставки щелкните значок Excel под "Файл" в левом верхнем углу или введите Alt-F11, чтобы вернуться к представлению электронной таблицы.
Это включит автообновление. Не забудьте сохранить файл в формате с поддержкой макросов lie .xlsm .
Просто чтобы закрепить ответ (ы):
Щелкните правой кнопкой мыши на имени вашего листа, выберите "Просмотр кода" и вставьте код ниже. После вставки щелкните значок Excel под "Файл" в левом верхнем углу или введите Alt-F11, чтобы вернуться к представлению электронной таблицы.
Это включит автообновление. Не забудьте сохранить файл в формате с поддержкой макросов lie .xlsm.
И Крис использовал этот код (который я только что сделал в 2010 году):
Я прошу настоящих экспертов и гуру прочесть код, потому что я уверен, что это материал высшего качества. Возможно, необъяснимый подсчет понижения в этом ответе может быть обращен вспять, когда люди увидят, что хорошо сделано ниже.
Даникотра использовал упрощенный пример. На самом деле, вы можете сделать это в более общем плане. Предположим, с ActiveSheet для следующего (или некоторого другого объекта листа):
Сохраните диапазон автофильтра. Она имеет .Автофильтр.Фильтры.Подсчитать столбцы и (.Автофильтр.Спектр.Граф /.Автофильтр.Фильтры.Количество) строк, сохраненных в rngAutofilter
Соберите в массив myAutofilters каждое из 4 свойств каждого из.Автофильтр.Фильтры.Подсчитайте элементы автофильтра, стараясь при этом избежать ошибок, определенных приложением.На или.Оператор ложный. (myAutofilters будет reDim'd на количество строк и столбцов в шаге 1)
Выключите фильтр, но сохраните раскрывающиеся списки с помощью.ShowAllData
Теперь автофильтр будет восстановлен в том же диапазоне, в котором он находился до начала работы вашего кода, но с обновленным автофильтром для изменений данных.
Читайте также: