VBA_Excel年级成绩表中自动分出各班成绩.doc

《VBA_Excel年级成绩表中自动分出各班成绩.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、PublicclasAsIntegerSub统计年级成绩的班级个数()'C列数据为班级DimClassAsNewCollectionOnErrorResumeNextFori=4ToCells(Rows.Count,1).End(xlUp).RowClass.AddCells(i,3),Cells(i,3)IfErr.Number<>0ThenErr.ClearNexti'循环遍历出各班成绩分薄Forj=1ToClass.Countclas=Class.Item(j)Call输入班级把成绩分班NextjEndSubSub输入班级把成绩分班()'sheet1为

2、成绩表Sheets(1).ActivateRange("A2:M2").Select'按班级筛选Selection.AutoFilterSelection.AutoFilterField:=3,Criteria1:=clasSheets(1).UsedRange.SelectSelection.Copy'避免添加工作簿时因重名而产生错误OnErrorResumeNextApplication.DisplayAlerts=FalseWorksheets.AddCount:=1,after:=Worksheets(Worksheets.Count)Sheets(

3、Worksheets.Count).Name=clasIfErr.Number<>0ThenSheets(Worksheets.Count).DeleteEndIfApplication.DisplayAlerts=tureSheets(Worksheets.Count).Paste'让sheet1取消自动筛选，否则下次将不能筛选Sheets(1).SelectSelection.AutoFilterEndSub