主题：[求助]这个统计难点，怎样解决啊？？

Do(112) And ClearSubtotal() And CreateGrid(".","鄉鎮",0,"村",0) And CopyRows(Grids) And DelReptRows(Grids,1,2) And DelFor(Grids,1, "=" ,"") And EvalFor(Grids,1,"if(SubtotalFill(Grids,1,2,4),[鄉鎮],[鄉鎮])",1,1)And Subtotal("鄉鎮,村,組","宗地數,証本數,面積","2,2,2") And DelFor("表1","組","Instr","小計")And EvalFor("表1","村","FindText(Grids,2,1, ""="" ,Substitute([鄉鎮],""小計 "",""""))","村", "=" ,"") And RemoveGrid(".")