Sub CopyDataFromFiles() Dim TemplateFile As String Dim TemplateSheet As Worksheet Dim AFilePath As String Dim BFilePath As String Dim AWorkbook As Workbook Dim BWorkbook As Workbook Dim ASheet As Worksheet Dim BSheet As Worksheet ' テンプ…