通过Excel列扫描searchID

我从列表框中获取ID，然后通过Excel工作表（ID）进行扫描，以确定该ID是否存在。 如果没有，我不得不把它添加到最后。 如果是这样，我必须找出哪个行存在的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来查看整个string上单个不区分大小写匹配的列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