0

Excelのマクロについて質問です
検索範囲を指定し、
検索値をすべて検索、
一致した値をすべて選択状態にするマクロを使用したいと思っています 現在以下のようにしておりますが、検索範囲の設定がうまくいかず、指定した範囲外も検索してしまいます
以下のマクロについては寄せ集めで、マクロについては初心者です
ご指導お願いいたします

Sub 検索01()

Dim oRange As Range
Dim lColumnL As Long
Dim lColumnR As Long
Dim lRowT As Long
Dim lRowB As Long
Dim FirstCell As Range
Dim Target As Range

'検索範囲を設定
Set oRange = Range("B2:M21")

'検索範囲内にカーソルを移動
lRowT = oRange.Row
lRowB = oRange.Row + oRange.Rows.Count - 1
lColumnL = oRange.Column
lColumnR = oRange.Column + oRange.Columns.Count - 1

If ActiveCell.Row < lRowT Or _
ActiveCell.Row > lRowB Or _
ActiveCell.Column < lColumnL Or _
ActiveCell.Column > lColumnR Then

Cells(lRowB, lColumnR).Activate

End If

'検索を実行
Set oRange = oRange.Find(What:="1" _
, After:=ActiveCell _
, LookIn:=xlValues _
, LookAt:=xlWhole _
, SearchOrder:=xlByRows _
, SearchDirection:=xlNext _
, MatchCase:=False _
, MatchByte:=False _
, SearchFormat:=False)

If oRange Is Nothing Then
MsgBox "見つかりません"
Exit Sub
Else
Set FirstCell = oRange
Set Target = oRange
End If
Do
Set oRange = Cells.FindNext(oRange)
If oRange.Address = FirstCell.Address Then
Exit Do
Else
Set Target = Union(Target, oRange)
End If
Loop
Target.Select


End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 4103日前