FIND NEXT かなにかで検索した文字を全部選択

FIND NEXT　かなにかで検索した文字を全部選択
わかる方いますでしょうか。

No.1 回答者： tom04 回答日時： 2017/11/14 21:03

こんばんは！

あまりに質問が抽象的なので、できます！としかお答えのしようがないのですが・・・

仮にシート全体を対象に「ああ」のセルを選択する場合のコードは

Sub Sample1()
Dim myRng As Range, FoundCell As Range, FirstCell As Range
With ActiveSheet
Set FoundCell = .Cells.Find(what:="ああ", LookIn:=xlValues, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
Set myRng = FoundCell
Set FirstCell = FoundCell
Do
Set FoundCell = .Cells.FindNext(after:=FoundCell)
If FoundCell.Address = FirstCell.Address Then Exit Do
Set myRng = Union(myRng, FoundCell)
Loop
myRng.Select
Else
MsgBox "該当データなし"
End If
End With
End Sub

※　完全一致としています。
部分一致（「ああ」が含まれる）の場合は
＞lookat:=xlWhole
を
＞lookat:=xlPart

にします。m(_ _)m