質問者が納得こんな感じです。
Sub 検索01()
Dim oRange As Range
Dim FirstCell As String
Dim Target As Range
'検索範囲を設定
With Range("B2:M21")
'検索を実行
Set oRange = .Find(What:="1", _
LookAt:=xlWhole, _
MatchCase:=False, _
MatchByte:=False)
If Not oRange Is Nothi...
4105日前view62