Sub CreateSummarySheet() ' 最適化の開始 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False Dim wsAllData As Worksheet Dim
Sub CreateSummarySheet() Dim wsAllData As Worksheet Dim wsOrderFormat As Worksheet Dim lastRow As Long Dim i As Long Dim wsNew As Worksheet Dim currentSheet As String Dim productN