我是新来的，我试图引导你走上正确的道路。如果引用的是表，则应使用表名或索引。结果41是表行的索引号，即databodyrange，没有表头。确保声明的变量与数据（字符串，整数）一致。我写了一些额外的代码来在D2中打印结果，并使用C2作为要查找的数字的输入范围。

Sub Test()
Dim partNum As String
    partNum = ThisWorkbook.Worksheets(1).Range("C2")
Dim i As Integer
    i = FindRFIDCode(partNum)
    ThisWorkbook.Worksheets(1).Range("D2") = i
End Sub

Function FindRFIDCode(ByVal partNum As String) As Integer

FindRFIDCode = 0
Dim matchResult As Variant
Dim iRow As Integer
Dim tbl As ListObject
'Set tbl = Range("CombinedTapeInfo").ListObject
Set tbl = ThisWorkbook.Worksheets(1).ListObjects("tbl_Fruits")
matchResult = Application.Match(partNum, tbl.ListColumns(1).DataBodyRange, 0)
iRow = tbl.ListColumns(1).DataBodyRange(matchResult).Row

If IsError(matchResult) Then
    FindRFIDCode = 0
Else
    FindRFIDCode = iRow
End If

End Function

字符串