在excel表中查找一条记录的问题

Question

举个例子，我想在excel表中的'B'列中找到一个值为‘123'的记录，并且返回它的行号，请问在delpi中怎么实现？

Answer 1

Function locate(wksheetaa As Worksheet, id As String) As Integer 
  Dim i As Integer
  For i = 1 To wksheetaa.UsedRange.Rows.Count
    If wksheetaa.Cells(i, 1) = id Then
      locate = i
      Exit Function
    End If
  Next i
  MsgBox('无发现') 
  locate = -1
End Function