Автофильтр через макрос
Добавлено: 17 июн 2009, 11:24
Люди добрые ) помогите пожалуйста кусочек кода нужен. Есть такая функция , как автофильтр в Excel. Его запустить через макрос можно примерно так:
И в итоге, он выводит все строки, в которых в нужном столбце, есть необходимый критерий. Теперь вопрос:
Как выделить ту область , которую нашёл автофильтр. Потому что номера ячеек то он выводит произвольно, не диапазоном. Как выхватить все ячейки с найденным критерием, и предположим удалить их ?
Заранее спасибо!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
ответ был найден самостоятельно, кому интересно решение, вот код:
Код: Выделить всё
Sub Macros()
Rows("1:1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=номер столбца, Criteria1:="критерий автофильтра"
End Sub
Как выделить ту область , которую нашёл автофильтр. Потому что номера ячеек то он выводит произвольно, не диапазоном. Как выхватить все ячейки с найденным критерием, и предположим удалить их ?
Заранее спасибо!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
ответ был найден самостоятельно, кому интересно решение, вот код:
Код: Выделить всё
Sub Макрос()
Selection.AutoFilter Field:=[номер столбца], Criteria1:="критерий автофильтра"
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
End Sub