'' Excel Worksheet をバラす VBA くん Public Sub SeparateSheets() Dim src As Workbook Dim sht As Worksheet Dim c As Integer Set src = ActiveWorkbook c = 0 ChDir ActiveWorkbook.Path For Each sht In src.Worksheets sht.Copy ActiveWorkbook.Clos…