実行時エラー"1004"「"Range"メソッドは失敗しました："_Global"オブジェクト」

Question

最終行を取得して、複数条件の判定を最終行まで繰り返す設定したいのですが、タイトルのエラーメッセージが表示されます。

A	B	C
12345	ネコ
12345	イヌ
12345	ウサギ	×
45678	ネコ

Sub 判定()

    Dim i, lastrow As Long
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    For i = 1 To lastrow
        If Range("A ; i").Value Like "123*" Then
        
          If Range("B" & i).Value = "ネコ" Or "イヌ" Then
        
             Range("C ; i").Value = ""
        
           Else
               Range("C ; i").Value = "×"
               
           End If

        Else
        
             Range("C ; i").Value = ""

        End If
    Next
End Sub

条件1：A列の5桁の数字に「123」が含まれているか
条件2：B列が「ネコ」or「イヌ」か

A列に123が含まれていて、B列がネコもしくはイヌの場合は、C列は空白のまま、
A列に123が含まれていて、B列がネコもしくはイヌでない場合はC列に「×」、
A列に123が含まれない場合は、Ｃ列は空白のままという処理をして表のようにしたいのですが、
「If Not Range("A ; i").Value Like "123*" Then」でエラーが起きております。
調べてみたところ「ワークシートのオブジェクトが認識されていない」のが原因のようなので
色々試してみましたがうまく認識させることができませんでした。

全くの素人がVBAの勉強を始めたばかりで、うまくご説明できているかも不安なのですが、
ご教授いただけたら幸いです。よろしくお願いいたします。

Answer 1

ネコ、イヌの判定部分は下記のような式になるのとおもいます。

If Range("B" & i).Value = "ネコ" Or Range("B" & i).Value = "イヌ" Then

また、「Range("A ; i").Value」のような表記部分については、下記の間違いではないでしょうか。

Range("A" & i).Value

Comments

[ary]

ご回答ありがとうございました。
ご指摘いただいた2か所修正したら実行時エラー"1004"はクリアできました！
ただ、「実行時エラー13型が一致しません」が出てしまい、「Dim i, lastrow As Long」を修正するなどしてみましたがエラーのままで動かすことができませんでした。
他にも誤っている箇所があるのではと絶望しております…
解決策等ご教授いただければ幸いです。

[Matsumon0104]

私の環境では、エラーなく実行されたので、質問者さんのエラー状況が確認できなくて、不確かな情報になってしまうのですが、下記を試していただけますでしょうか。

「型が一致しません」のエラーは「Range("A” & i).Value」等のセルの値取得時に発生していますでしょうか？
その場合「Range("A" & str(i)).Value」としてみてください。
「i」は「Long型」ですが、「"A"」は文字列リテラルなので、型が違うというエラーが出ているのかもしれません。
ですので、「i」を文字列変換(str)したのちに結合するとうまくいくかもしれません。

[hatena19]

If Range("B" & i).Value = "ネコ" Or "イヌ" Then
の部分はこの回答のように修正してますか。
していないと、「実行時エラー13型が一致しません」になります。

[ary]

皆様、ご回答いただき誠にありがとうございました。
判定したい元の表自体に不備があり、そこを修正したらご教授いただいた通りのコードで正しく判定ができました！！正しく稼働してくれるとこんなにうれしいのですね…！！皆様のおかげで理解を深め挫折せずに今後もvbaの勉強が頑張れそうです。本当にありがとうございました！！