Sub フィルター実行() Dim 抽出シート As Worksheet Dim リストシート As Worksheet Dim 抽出日付 As Variant Dim 最終行 As Long Dim 新しいブック As Workbook Dim 新しいシート As Worksheet Dim 保存パス As String ' シートの取得 Set 抽出シート = Wor…