Страницы: 1
RSS
Сохранение данных после фильтрации макросом
 
Всем доброго дня!В наличии есть такой макрос для фильтрации по столбцу на разных листах
Код
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 8, "=Лекарственные средства"
    Next
End Sub

Подскажите пожалуйста, как сделать так, чтобы сохранить отфильтрованные данные после применения макроса? То есть сейчас после макроса данные все равно выглядят в виде фильтра. А как эти данные поиметь просто в виде списка?(типо копировать-вставить как значение)

Пока только додумался открывать каждый лист, копировать данные, создавать новый лист и туда их переносить. Но листов слишком много и такой вариант не подходит.
 
Сложно понять, что нужно. Непросто выполнить "типо копировать", но "копировать данные... такой вариант не подходит".
 
А где вы планируете сохранять отфильтрованные данные?
На том же листе? А остальные данные удалять?
если так, то чем не подходит ваш вариант? Если оставшиеся данные не нужны - удалите лист. Останется с отфильтрованными данными
Страницы: 1
Наверх