Excel2013のマクロでFindメソッドを使い検索します。
下の月別生産数から「製品名」を検索します。
下記のFindメソッドを使ったコードを入力します。
Sub MyFind()
Dim s As String
s = InputBox("検索する製品名を入力してください。")
Cells.Find(What:=s, LookIn:=xlValues, LookAt:=xlWhole).Activate
End Sub
マクロを実行します。
「検索する製品名を入力してください。」とInputBoxが表示されるので、製品名を入力します。
見つかったセル位置にカーソルが移動します。