【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには？

VBAについて質問です。
例えばSheet1のA1セルに「2016/3/7」という値が入力されているとして、そのセルからSheet2にある同じ値（2016/3/7）が入力されているセルに移動するにはどのようにすればよいでしょうか。よろしくお願いします。

No.1 ベストアンサー 回答者： siffon9 回答日時： 2016/03/06 19:52

こんな感じで如何でしょうか。

Sub aaa()
Dim r As Range
Set r = Worksheets("Sheet2").Cells.Find(Worksheets("Sheet1").Range("A1").Value)
If Not r Is Nothing Then
Worksheets("Sheet2").Select
r.Select
Else
MsgBox "見つかりませんでした。", vbExclamation
End If

End Sub

この回答へのお礼

早々に有難うございます！まさに求めていたやり方でした。

お礼日時：2016/03/06 20:16