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

  • 画像を添付する (ファイルサイズ:10MB以内、ファイル形式:JPG/GIF/PNG)
  • 今の自分の気分スタンプを選ぼう!
あと4000文字

A 回答 (1件)

こんばんは!



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

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

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
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング