Поиск с полным совподением.

[Rom1k06]

Всем день добрый !
Есть код.
With opWb
For i = 4 To .Cells(Rows.Count, 35).End(xlUp).Row
If .Cells(i, c) = "" Then GoTo m2
For l = 1 To 4
Set x = Bz.Sheets(l).Columns("A:B").Find(wh at:=.Cells(i, 35))
If Not x Is Nothing Then Bz.Sheets(l).Cells(x.Row, 7) = .Cells(i, c): GoTo m2
Next l
m2: Next i
End With

какой параметр функции Find надо поставить чтобы он выбирал только при полном совподении?
А то он выбирает если дажеж 3 первых символа совподают а остальные 2 нет !!!
Все значений числовые. 5-значений.

[EducatedFool]

Читаем справку по методу Find:

expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)

expression Required. An expression that returns a Range object.

What Required Variant. The data to search for. Can be a string or any Microsoft Excel data type.

After Optional Variant. The cell after which you want the search to begin. This corresponds to the position of the active cell when a search is done from the user interface. Note that After must be a single cell in the range. Remember that the search begins after this cell; the specified cell isn’t searched until the method wraps back around to this cell. If you don’t specify this argument, the search starts after the cell in the upper-left corner of the range.

LookIn Optional Variant. The type of information.

LookAt Optional Variant. Can be one of the following XlLookAt constants: xlWhole or xlPart.

И делаем выводы:

Sub test()
    With opWb
        For i = 4 To .Cells(Rows.Count, 35).End(xlUp).Row
            If .Cells(i, c) = "" Then GoTo m2
            For l = 1 To 4
                Set x = Bz.Sheets(l).Columns("A:B").Find(what:=.Cells(i, 35), LookAt:=xlWhole)
                If Not x Is Nothing Then Bz.Sheets(l).Cells(x.Row, 7) = .Cells(i, c): GoTo m2
            Next l
m2:     Next i
    End With
End Sub

[Rom1k06]

Спасибо за ответ !

Теперь буду знать!