相关疑难解决方法(0)

对于所有善良的爱,我似乎无法让这一切发挥作用.我一直收到上面提到的错误.

我有这个表,我试图找出代码是否在另一列中的某个地方匹配它自己的子代码,但它是错误的.非常感谢您的帮助.

Sub testing()

    Dim m1 As long
    Dim myrange As Range

    Set myrange = Worksheets("Sheet1").Range("B2:B23")

    For e = 2 To 23
        m1= Application.WorksheetFunction.Match(Cells(e, 1).Value, myrange, 0)

        If m1 > 0 Then
            Cells(e, 3).Value = "Yes"
        Else
            Cells(e, 3).Value = "No"
        End If
    Next e

MsgBox "Complete!"

End Sub