Обновить расширенный фильтр для диапазона, в который добавлены новые строки - PullRequest
Новая
       27

Обновить расширенный фильтр для диапазона, в который добавлены новые строки

1 голос
/ 15 марта 2020

У меня есть рабочий лист со списком критериев в ячейках с A1 по J2. Строка 1 - заголовок.

Ниже у меня есть таблица со всеми моими элементами данных. Ячейки от A8 до J с динамическим c числом строк 

Sheets("D0022").Range("A8:" & Sheets("D0022").Cells(Rows.Count, "J").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("D0022").Range("a1:j2"), Unique:=True

Когда я запускаю это, я получаю приложение Runtime 1004, определенное или определенное объектом, ошибка

Могу ли я получить помощь, почему мой Код VBA не работает

1 Ответ

2 голосов
/ 15 марта 2020

Попробуйте изменить Sheets("D0022").Range("A8:" & Sheets("D0022").Cells(Rows.Count, "J").End(...

на

Sheets("D0022").Range("A8:J" & Sheets("D0022").Cells(Rows.Count, "J").End(...

"A8:J" вместо "A8:".

В противном случае вы не установите столбец диапазона.

Sheets("D0022").Cells(Rows.Count, "J").End(xlUp).Row вычисляет только последнюю строку столбца J: J ...

...