質問: Sheets("****").Cells(Rows.Count, 5).End(xlUp).Row MsgBox "****" & t & "は" & FoundCell.Row & "行です。" Else '5 'MsgBox t End If '5 Else '4 'MsgBox "****" & s & "は" & Founddata.Row & "行です。" End If '4 Else '3 End If '3 Else '2 End If '2 Next i 'ループe End With '1 End Sub ### 試したこと エラー発生個所を何度も見直し、変数も間違っていないか確認しました。 ### 補足情報(言語/FW/ツール等のバージョンなど) excel 2007
回答: `If FoundCell Is Nothing Then` で、FoundCell が Nothing なのに `MsgBox "**" & t & "は" & FoundCell.Row & "行です。"` で FoundCell.Row を参照しようとしているからじゃないでしょうか。 (Nothing のものに *.Row とかドット付のものを呼ぶとエラーになる) あと、ソースコードにインデントが入ってないと見づらいので、 バッククォート 3 つで囲った方が良いです。 https://teratail.com/help