VBAで特定の文字が入力されたセルを選択

質問

例えば、Aと入力してあるセルがあり、
マクロを実行した時にそのセルを選択するにはどのような方法があるのでしょうか。
宜しくお願いします。

回答No.2

tom04 · ベストアンサー

こんにちは！

「A」は「含まれる」ではなく、「A」そのもののセルで良い訳ですよね？
一例です。

Sub Sample1()
Dim c As Range, r As Range, myRange As Range
Set c = ActiveSheet.Cells.Find(what:="A", LookIn:=xlValues, lookat:=xlWhole)
Set myRange = c
For Each r In ActiveSheet.UsedRange
If r = "A" Then
Set myRange = Union(myRange, r)
End If
Next r
myRange.Select
End Sub

こんな感じではどうでしょうか？m（_ _）m

お礼

ありがとうございます。
コード自体大変難しかったのですが、
Aの部分を他の文字に変えても同じように選択できました。

回答No.1

kybo

Aと入力したセルをすべてなのか、1つのみなのかでかなり違います。

簡単には

Cells.Find("A", , , xlWhole).Select

とします。
見つからなければエラーです

お礼

ご回答ありがとうございます。
Aと入力されているセルを選択できました。
FindとxlWholeで、すべてが一致するセルを選択できるのですね。