Excel 查找两个ID';s

Excel 查找两个ID';s,excel,vba,Excel,Vba,我是vba新手 下面的代码是在excel中查找两个ID之间的匹配项(如果匹配),然后将新值放入新单元格中。问题是何时出现调试 “无法获取工作表函数类的find属性” 我相信如果您试图查找的内容不存在,WorksheetFunction.Find()将抛出错误 我建议使用不同的函数,如InStr(),来实现您似乎正在尝试的功能 或者,如果必须,请在程序流找不到值时,使用“出错时使用”重定向程序流。我相信工作表函数。如果您试图查找的内容不存在,find()将抛出错误 我建议使用不同的函数,如InSt

我是vba新手

下面的代码是在excel中查找两个ID之间的匹配项(如果匹配),然后将新值放入新单元格中。问题是何时出现调试

“无法获取工作表函数类的find属性”


我相信如果您试图查找的内容不存在,
WorksheetFunction.Find()
将抛出错误

我建议使用不同的函数,如
InStr()
,来实现您似乎正在尝试的功能


或者,如果必须,请在程序流找不到值时,使用“出错时使用
重定向程序流。

我相信
工作表函数。如果您试图查找的内容不存在,find()
将抛出错误

我建议使用不同的函数,如
InStr()
,来实现您似乎正在尝试的功能


或者,如果必须的话,当程序流找不到值时,可以使用错误上的
重定向程序流。

我不认为WorksheetFunction.find()是您需要的,它是应用于范围的另一个find方法。这个方法怎么样

Dim lMatch As Range
For i = 0 To 112
    For j = 0 To 540
    Set lMatch = Cells(2 + i, "H").Find(Cells(2 + i, "A").Value)
        If Not lMatch Is Nothing Then
            ActiveSheet.Cells(2 + i, "B").Value = ActiveSheet.Cells(2 + j, "I").Value
        End If
    Next j
Next i

我不认为WorksheetFunction.Find()是您所需要的,它是应用于范围的另一个Find方法。这个怎么样

Dim lMatch As Range
For i = 0 To 112
    For j = 0 To 540
    Set lMatch = Cells(2 + i, "H").Find(Cells(2 + i, "A").Value)
        If Not lMatch Is Nothing Then
            ActiveSheet.Cells(2 + i, "B").Value = ActiveSheet.Cells(2 + j, "I").Value
        End If
    Next j
Next i

请正确检查查找函数,以下是查找函数的正确格式
查找(“A”,单元格(2+i))

请正确检查查找函数下面是查找函数的正确格式
查找(“A”,单元格(2+i))

谢谢。这真的是我想要的谢谢。这真的是我想要的