すべての良いことへの愛のために、私はこれを機能させることができないようです. 上記のエラーが発生し続けます。
このテーブルがあり、コードが他の列内のどこかにある独自のサブコードと一致するかどうかを調べようとしていますが、エラーが発生しています。よろしくお願いいたします。
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