сканирование через столбец Excel для поиска идентификатора

Question

Я получаю идентификатор из списка и затем сканирую лист Excel (ID), чтобы узнать, существует ли этот идентификатор или нет. Если это не так, я должен добавить его в конце. Если это произойдет, я должен выяснить, в какой строке присутствует этот идентификатор.

Я зацикливаюсь таким образом

 count = 1
 count1=1

 While (Worksheets("ID").Cells(Count, 1) <> "")
     If StrComp(Worksheets("ID").Cells(Count, 2), list1.Value, vbTextCompare = 1) Then
         count1=count
 count = count +1

Answer 1

Вы можете попробовать использовать FInd, чтобы посмотреть на столбец B для единственного нечувствительного к регистру совпадения для всей строки, то есть

Обновление: если вы запускали поиск непосредственно из активного элемента управления X:

    Private Sub List1_Click()
 Dim rng1 As Range
    Set rng1 = Sheets("ID").Columns("B").Find(List1.Value, , xlValues, xlWhole, , False)
    If Not rng1 Is Nothing Then
        MsgBox List1.Value & " found at " & rng1.Row
    Else
        MsgBox List1.Value & " not found"
    End If
End Sub