Option Explicit Sub クリア() Dim lastRow As Integer With ThisWorkbook.Sheets("マスタ") lastRow = .Cells(Rows.Count, 4).End(xlUp).Row .Range(Cells(7, 5), Cells(lastRow, 9)).ClearContents .Range("D2:D4").ClearContents .Range("E3:F3").ClearContents End With End Sub Sub ファイルパス選択() Dim FilePath …
