поиск первых 2 знаков

[Jaroslav]

Добрый день. У меня такая задача: найти в столбце А среди разных чисел числа, которые начинаются с числа, равного первым 2 знакам ячейки А1. Мне нужно найти номер строки, в котором находится это значение. делаю так:

kilk_nev = Columns("A:A").Find(What:=Mid(Cells(1, 1), 1, 2),  LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False).Row

Проблема в том, что число, равное первым 2 знакам ячейки А1, может быть как сначала, так и в конце или посередине числа, которое находится в столбце А. Ребята, подскажите, пожалуйста, решение

[Jaroslav]

Как вариант: первых 2 знака вывести в столбец Е и поиск проводить в столбце Е:

AostPr = Columns("A").Rows(65536).End(xlUp).Row
    For u = AostPr To 2 Step -1
        Cells(u, 5) = Mid(Cells(u, 1), 1, 2)
    Next
kilk_nev = Columns("Е:Е").Find(What:=Mid(Cells(1, 1), 1, 2),  LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False).Row

[SAS888]

Советую сначала найти объект (ячейку), а уже после обнаружения использовать свойства этого объекта (например, Row). Иначе, в случае, если совпадений нет - будет ошибка.
Задачу решить можно так:

Sub qq()
    Dim x As Range
    Set x = [A:A].Find(what:=Left$([A1], 2) & "*", LookAt:=xlWhole)
    If Not x Is Nothing Then x.Select
End Sub

Только будет найдено одно (первое) совпадение. Если Вам нужны все, то организуйте цикл, используя метод FindNext.

[Jaroslav]

Спасибо, SAS888