Dim FoundCell, FoundCell2 As Range Dim str_i, end_i, i As Long Dim dt As string dt = Range("F4").Value With Sheets("sheet1") end_i = .Range("B50000").End(xlUp).Row '.range***で範囲を指定し、指定した範囲に（例：日付）検索をかける '変数FoundCellに結果を代入 Set FoundCell = .Range("B3:B" & end_i).Find(What:=DateValue(dt)) '変数FoundCellがNothing（無い）の場合、何もしない If FoundCell Is Nothing Then ' '変数FoundCellがある場合、処理開始 Else str_i = FoundCell.Row For i = str_i To end_i '----- 処理 ----- Exit For Next End If