エクセルで、ある特定の言葉を含んでいるセルを探し、そのセルを全て選択し

質問

エクセルで、ある特定の言葉を含んでいるセルを探し、そのセルを全て選択し、さらに一番最後のセルにフォーカスを持ってくるVBAのコードはどのように作成したらよいでしょう?
例えば、セルE1, F1, G1に共通の言葉が入っていると仮定した場合、このコードを使うことにより、まずこの3つのセルを選択、さらにフォーカスをG1に持ってくるという作業をコード化するのがゴールです。

回答No.1

kmetu · ベストアンサー

Dim mMatchRange As Range
Dim mSelectRange As String
Dim mLastRange As String

With Worksheets(1).Range("a1:f500")
Set mMatchRange = .Find("*" & "探したい文字列" & "*", LookIn:=xlValues)
If Not mMatchRange Is Nothing Then
firstAddress = mMatchRange.Address
Do
mSelectRange = mSelectRange & mMatchRange.Address & ","
mLastRange = mMatchRange.Address
Set mMatchRange = .FindNext(mMatchRange)
Loop While Not mMatchRange Is Nothing And mMatchRange.Address <> firstAddress
End If
End With

Range(Left(mSelectRange, Len(mSelectRange) - 1)).Select
Range(mLastRange).Activate

こんな感じでいかがでしょう

お礼

最高です!!　こんなに早く回答いただき、大満足!!　ありがとうございます　:)