Option Explicit Public Sub Main() Dim sh As Worksheet Set sh = ThisWorkbook.Worksheets(1) unpivot sh, "データ" End Sub Public Function unpivot(sh As Worksheet, areaName As String) Dim rg As Range Set rg = sh.Cells.Range(areaName) Dim row A…

Public Function OpenBook(filename As String) Dim buf As String Dim book As Workbook Dim openedBook As Workbook buf = Dir(filename) If buf = "" Then Set OpenBook = Nothing Exit Function End If For Each book In Workbooks If book.name = buf T…