Sub CopyDataFromMultipleWorkbooks()' 変数宣言Dim wsTemplate As Worksheet, wsNew As WorksheetDim wbSource As WorkbookDim strFolderPath As String, strFileName As StringDim selectedMonth As StringDim targetColumn As Integer ' ユーザーに月名の…

Sub TransferData()Dim ws As WorksheetDim newWorkbook As WorkbookDim newRow As IntegerDim cellValueE12 As Variant, cellValueE13 As Variant ' 新規ワークブックを作成Set newWorkbook = Workbooks.AddnewRow = 1 ' ThisWorkbookの各シートをループFor…