'*****　簡単にFind検索にてデータ位置を取得　***** Private Sub btn_new_Report_Click() Dim FoundCell As Range ''「１」指定したRangeオブジェクトのアクティブセル ''（＝空白行と空白列で囲まれたセル範囲）を取得 'Set FoundCell = .Range("B3").CurrentRegion.Find '(What:=検索値（例：2020/09/05）) '「２」B列の値取得 '検索値（例：2020/09/05） Set FoundCell = .Range("B3;B50000").Find(What:="検索値") If FoundCell Is Nothing Then 'データNothing Else '処理 End If End Sub