'昇順でソートする 'ソートの条件を設定 With ActiveSheet.Sort.SortFields '条件設定をクリア .Clear '1～10列目まで同じソートの条件設定をするため繰り返し処理 For i = 1 To 10 .Add Key:=Cells(1, i), _ SortOn:=xlSortOnValues, _ Order:=xlAscending,…

Worksheets.Add After:=Sheets(Worksheets.Count) ActiveSheet.Name = "追加シート名"