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