Excel InStr не соответствует

Question

Я считаю, что у меня возникают проблемы с InStr.

У меня есть цикл for, цикл через кучу значений и правильное завершение, когда ячейка содержит «-».

Однако, если ячейка содержит текст, который может быть найден в диапазоне («A2»), то я хочу, чтобы он выдавал его значение в Range («A5»).

Private Sub CommandButton21_Click() 
    Dim cell As Range 
    For Each cell In Sheets(1).Range("$B:$B") 
     Dim i As Long 
     i = cell.Row + i 
     If InStr(1, cell.Text, Range("A2").Text, vbTextCompare) Then Range("A5").Value = cell.Text 
     If cell.Text = "--" Then Exit For 
    Next cell 
End Sub 

Не знаю, почему этот вид сравнения не удается.

Answer 1

InStr возвращает числовое значение, равное начальной позиции строки поиска в искомом поле, так что вы должны сравнить его против ряда:

If InStr(1, cell.Text, Range("A2").Text, vbTextCompare) > 0 Then Range("A5").Value = cell.Text 

На стороне записки, если вы этого не сделаете нужно это, тогда быстрее обработать .Value2, затем .Text - см. this question.