【文件属性】：
文件名称：小学三科成绩统计表.xlsm
文件大小：65KB
文件格式：XLSM
更新时间：2023-03-06 13:04:17
excel 成绩册
三科成绩统计表
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 = CreateObject("Scripting.Dictionary")
………………………………………………