Sub 指定文字が行列目にあるのか探して検索取得する_下から() 何行目 = Range("A:A").Find(What:="CCC", SearchDirection:=xlPrevious).Row MsgBox 何行目 End Sub