複数セルの指定 Range(左上のセル,右上のセル) '① Range(Range("B2"), Range("B3")).Select '② Range(Cells(3, 3), Cells(4, 4)).Select '③ Range(Range("A2"), Range("A1").End(xlDown)).Select

Sub ブックを開いて加工() Dim openBook As Workbook Dim openPath As String '選択したブック名を格納 openPath = Application.GetOpenFilename("csv,*.csv") If openPath <> "False" Then '格納したブックを開く Set openBook = Workbooks.Open(openPath) …