Поиск в выделенном диапазоне - VBA

Формулировка задачи:

Всем привет. Вопрос простой. Как вот это

                    Листинг программы
                
Columns("B:B").Select
    Selection.Find(What:=m1, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate

запихать в вот это

                    Листинг программы
                
Set z = s.Worksheets(1).Cells.Find(What:=m1, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows)

Т.к. искать надо только в определенном столбце, а не по всем у листу. Это делается для ускорения поиска. Если есть, конечно, способ ускорить до мгновения ока, то буду только рад.

Решение задачи: «Поиск в выделенном диапазоне»

textual
                            Листинг программы 
                        
Set z = s.Worksheets(1).Columns("E:E").Find(What:=m1, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows)

Оцени полезность:

15 голосов , оценка 4.133 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы