VBA 特定の文字が入力されたセルに移動する 複数

VBA初心者です。
下記コードで、Aと入力されたセルを検索、検索されたセルに移動　を使っているのですが
Set r = Cells.Find( _
What:="A", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
MatchByte:=False, _
SearchFormat:=False)

What:="A"これを複数条件にするのはどのようなコードが必要でしょうか。
例：今はAしかヒットしないが、Bもヒットしたい場合。

No.3 回答者： mygoonickname 回答日時： 2021/10/27 14:57

こんにちは。

どの様な処理をしたいかによって、回答が代わると思います。
１つは、提示された処理が終わったあとに、同じ様に、What:="B"とした
コードを書いて処理をすれば、Aが終わったあとに、Bも処理はされるかと。

それとも、セルの例えば上から順に、A又はBがあった時に、そのセルを
選択したいというのでしたら、下記の様な記述でもできるかと思います。
(適当なサイトが見付からなかったので、手書きですが。)

Option Explicit

Sub test()
Dim myRng As Range
For Each myRng In Range("A1:A10")
If myRng.Value = "A" Then
'処理A
myRng.Select
Exit For 'セルを選択した状態で処理を抜けるなら
ElseIf myRng.Value = "B" Then
'処理B
myRng.Select
Exit For 'セルを選択した状態で処理を抜けるなら
End If
Next
End Sub

No.2 回答者： fujillin 回答日時： 2021/10/27 11:29

こんにちは

＞例：今はAしかヒットしないが、Bもヒットしたい場合。
その後どうするつもりなのかがわかりませんけれど・・・

とりあえず、変数 r2 とかを作っておいて、ご提示のコードと同じように"B"を検索すれば、検索することはできるでしょう。

No.1 回答者： くんこば 回答日時： 2021/10/27 02:32

Find関数の公式ページは見た？