VBA_Excel年級成績表中自動分出各班成績.doc

《VBA_Excel年級成績表中自動分出各班成績.doc》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、PublicclasAsIntegerSub統(tǒng)計年級成績的班級個數(shù)()'C列數(shù)據(jù)為班級DimClassAsNewCollectionOnErrorResumeNextFori=4ToCells(Rows.Count,1).End(xlUp).RowClass.AddCells(i,3),Cells(i,3)IfErr.Number<>0ThenErr.ClearNexti'循環(huán)遍歷出各班成績分薄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'避免添加工作簿時因重名而產(chǎn)生錯誤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