Вы можете получить доступ к фильтров первого листа и соответствующего отфильтрованного диапазона с
Dim rng As Range
With Sheets(1)
.AutoFilter
Set rng = .AutoFilter.Range
End With
Вся информация на фильтрах хранится в коллекции фильтров объекта Автофильтр
Dim filters As Filters
Set filters = Sheets(1).AutoFilter.Filters
Каждый элемент этой коллекции представляет один столбец в отфильтрованном диапазоне. Следующее заявление заставило бы вас факторам1 первой колонки:
filters.Item(1).Criteria1
Вы можете использовать полученную информацию на других листах, которые вы хотите передать их. Сделайте это с помощью метода Автофильтра диапазона объекта (Documentation)
Если столбцы идентичны, как вы говорите, что вы можете получить целевой диапазон легко, используя свойство адреса:
Sheets(n).Range(rng.address).AutoFilter arguments_here
Да, но ТАК ISN» t служба записи кода. Если у вас есть какой-то код, который вы пробовали, и он не работает, отправьте его и сообщите нам, где он выдает ошибку, плюс то, что ошибка, и мы постараемся помочь. –
Сделайте поиск в Интернете по своему названию, это довольно популярный вопрос – Davesexcel
Спасибо, Марк и Дейвс. В Интернете у меня есть один код, но он показывает ошибку «Определенная приложением или объектная ошибка». Пожалуйста, помогите, как я отправляю код здесь. –