主题：[求助]数据统计问题。谢谢

[这个贴子最后由don在 2011/06/25 05:32pm 第 1 次编辑]

EvalFor("表1",20,"If(CreateGrid(""A""+Text(Row),""A1"",1) And AddRows(grids,2) And Eval(""EvalFor(grids,1,""""Cell(""+Text(row)+"",Row,""""""""表1"""""""")"""")"")And SortCol(Grids,1,1),[統計_9],[統計_9])") AndSetVariable("%n%",1) and loop("1=1","SetColFormula(Grid,10 + [%n%],""cell(Col-10,1,Row+1)"")And RecalcCol(Grid,10 + [%n%]) And SetColFormula(Grid,10 + [%n%],"""") And SetVariable(""%n%"",[%n%]+1)",10)And Eval(Mid(Rept(" And RemoveGrid(Grids)",Rows),5))

0碼位置的刷新公式

If([數值_0]=0,0,If([數值_1]=0,1,If([數值_2]=0,2,If([數值_3]=0,3,If([數值_4]=0,4,If([數值_5]=0,5,If([數值_6]=0,6,If([數值_7]=0,7,If([數值_8]=0,8,If([數值_9]=0,9,""))))))))))

给个高效些的:
DelFor(Grid,1, "=" ,"") And CreateGrid(".","A",1,"B",1,"C",1) And AddRows(grids,10 * Rows-8) And EvalFor(grids,1,"-Int(-Row/10)") And EvalFor(grids,2,"If(Mod(Row,10) = 0,10,Mod(Row,10) )") And EvalFor(grids,3,"Cell([A],[B],""表1"")") And SortCol(Grids,3,1)And SortCol(Grids,1,1) And Eval("EvalFor(grid,"+ Substitute(Substitute("1@1|2@2|3@3|4@4|5@5|6@6|7@7|8@8|9@9|10@10","|",")"") and EvalFor(grid,"),"@","+10,""FindText(grids,3,1, """"="""" ,Row,") + ")"")") And RemoveGrid(".")