エクセルで、A2セルの値を同シート内（A5以降のA列）で検索し、該当セルにジャンプする方法はありますか？

質問

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1417540469

上記のページと同様の質問なのですが、
ベストアンサーに選ばれている回答は別シートにジャンプですが、
同シートでのジャンプの方法はありますでしょうか。

どなたかご教示いただけると助かります。
何卒よろしくお願いいたします。

回答No.1

zap35 · ベストアンサー

とりあえずはご提示いただいた回答で
＞Set Ws2 = Sheets("Sheet2")
を
　Set Ws2 = ActiveSheet
にするだけで良いと思います

私ならこんなマクロにします。マクロはシート名タブ右クリック→コードの表示で開く画面に貼り付けてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim trg As Range
　If Target.Address = "$A$2" Then　　
　　Set trg = Range(Cells(5, "A"), Cells(65536, "A")).Find(what:=Range("A2").Value _
　　　　, LookIn:=xlValues, Lookat:=xlWhole)
　　If Not trg Is Nothing Then
　　　trg.Select
　　End If
　End If
End Sub

お礼

zap35さま

完璧なお答え有難うございます！
すごく助かりました。
貴重なお時間割いていただき、感謝です。