11

すべての良いことへの愛のために、私はこれを機能させることができないようです. 上記のエラーが発生し続けます。

このテーブルがあり、コードが他の列内のどこかにある独自のサブコードと一致するかどうかを調べようとしていますが、エラーが発生しています。よろしくお願いいたします。

ここに画像の説明を入力

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
4

2 に答える 2