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