質問: エクセルのマクロ?について教えて頂けますでしょうか
回答: シートを追加する方法です。 ベースになるファイルと外部のデータファイルは起動しているものとします。 ベースになるファイルに以下のマクロを登録して走らせて下さい。 注意(A) ベースになるファイル名は「Sample.xlsm」を変更して下さい。 質問では拡張子が「xls」になっていますが、私のはExcel2019なので拡張子は「xlsm」です。 注意(B) データファイル名は「DataBook.csv」を変更して下さい。 データファイルのシート名は「DataBook」を変更して下さい。 注意(C) 出来るシート名はSample001~100です。 シート名は「Sample」を変更して下さい。 Dim WB As Workbook Dim WS As Worksheet Dim R Set WB = Workbooks("Sample.xlsm") '<---(A) Set WS = Workbooks("DataBook.csv").Worksheets("DataBook") '<---(B) For R = 1 To 100 With WB.Worksheets.Add(after:=WB.Worksheets(WB.Worksheets.Count)) .Name = "Sample" & Format(R, "000") '<---(C) .Cells(1, "X") = WS.Cells(R, "A") .Cells(1, "Y") = WS.Cells(R, "B") End With Next R