Sub フィルター_指定日付以前のみを抽出する() 指定日 = "2022/4/3" Range("A1:C10").AutoFilter 1, ">" & 指定日 '指定日以降をフィルタ Rows("2:10").Delete '抽出行削除 ActiveSheet.AutoFilterMode = False 'フィルタ解除 End Sub