三科成绩统计表 Sub aaa() If Sheets.Count > 2 Then For i = 3 To Sheets.Count Application.DisplayAlerts = 0 Sheets(Sheets.Count).Delete Application.DisplayAlerts = 1 Next End If Dim d As Object Dim arr As Variant Dim brr() Set d = CreateObje