excel - 查找两个 ID 之间的匹配项

Question

我是 vba 新手
下面的代码是在excel中查找两个ID之间的匹配，如果匹配则将新值放入新单元格中。问题是当调试出现时

“Unable to get find property of WorksheetFunction class".

Dim lMatch As Long
For i = 0 To 112
    For j = 0 To 540
    lMatch = Application.WorksheetFunction.Find(Cells(2 + i, "A").Value, Cells(2 + j, "H").Value)
        If lMatch > 0 Then
            ActiveSheet.Cells(2 + i, "B").Value = ActiveSheet.Cells(2 + j, "I").Value
        End If
    Next j
Next i

Answer 1

我相信WorksheetFunction.Find()如果您要查找的内容不存在，则会引发错误。

我建议使用不同的函数，例如 InStr()实现您似乎正在尝试的目标。

或者，如果必须，请使用 On Error在找不到值时重定向程序流。