エクセルVBAで、条件に一致するセルへ移動

質問

エクセルVBAでシート内を検索し、条件に一致するセルを選択させたいのですが、どのようにしたら良いでしょうか？
　同一データはシート内に一つしか無い前提です。
勉強不足ですみませんが、どなたかご教授お願いします。

回答No.2

maruru01 · ベストアンサー

こんにちは。maruru01です。

Findメソッドがいいでしょう。
こんな感じ

Dim rg As Range

Set rg = ActiveSheet.Cells.Find(What:="検索文字列")
If rg Is Nothing Then
　　MsgBox "シート内には見つかりませんでした。"
Else
　　rg.Select
End If

Findメソッドの詳細は、VBAのヘルプを参照して下さい。

お礼

できました。
ありがとうございました。

回答No.3

taocat

こんばんは。

Findがいいでしょうが、検索範囲が決まってるなら
単純にFor文でまわしてもいいかも。

検索範囲：Ａ１～Ｃ１００
検索値：　セルＦ１の値
------------------------------------------------

Sub Test()

　Dim Rng As Range

　For Each Rng In Range("A1:C100")
　　　If Rng.Value = "検索値" Then
　　　　　Rng.Activate
　　　　　Exit Sub
　　　End If
　Next

　　MsgBox "該当なし"

End Sub
---------------------------------------------

以上です。

お礼

度々回答頂きありがとうございます。
勉強になります。

回答No.1

Wendy02

記録マクロで、メニューから検索を使ってみればよいと思います。
Find メソッドが出てくるはずですから、後は、ヘルプで調べてみてください。

お礼

回答頂きありがとうございます。