主题：[求助]程序如何修改,才能解决以下两个问题

这还不简单
if([%月份1%]=""or [%月份2%]="",MsgBox("请选择起始始月份和比较月份后再执行此操作!",0), Do(112) And FilterFor("月份", "=" ,[%月份2%]) And SortCol(GridName,"语文_成绩",2) And SortCol(GridName,"班",1) And SortCol(GridName,"月份",1) And evalfor(grid,"语文_班名","if(Row=1,1,if(cell(Row-1,""月份"")=cell(Row,""月份"") And cell(Row-1,""班"")=cell(Row,""班"") And cell(Row-1,""语文_成绩"")<>cell(Row,""语文_成绩""),cell(row-1,""语文_班名"")+1,if(cell(Row-1,""班"")<>cell(Row,""班""),1,cell(row-1,""语文_班名""))))") And SortCol(GridName,"语文_成绩",2) And SortCol(GridName,"月份",1) And evalfor(grid,"语文_级名","if(Row=1,1,if(cell(Row-1,""月份"")=cell(Row,""月份"") And cell(Row-1,""语文_成绩"")<>cell(Row,""语文_成绩""),cell(row-1,""语文_级名"")+1,if(cell(Row-1,""月份"")<>cell(Row,""月份""),1,cell(row-1,""语文_级名""))))") And ReplaceFor(GridName,"语文_班名","","语文_成绩", "=" ,0) And ReplaceFor(GridName,"语文_级名","","语文_成绩", "=" ,0) And ReplaceFor(GridName,"语文_班名","","语文_成绩", "=" ,"") And ReplaceFor(GridName,"语文_级名","","语文_成绩", "=" ,""))