主题：[求助]怎样插入行？？？

按钮公式：
AddRows(Grid,1) And Move(1,Col) And Loop("Row < Rows", "If(Number(Cell(Row,""第二列"")) <= Row,"""",Eval(mid(Rept("" And Do(101)"",Number(Cell(Row,""第二列""))-Row),5))) And Next()") And DelRow(Grid,Rows)

-=-=-=- 以下内容由 wjq1072 在 2012年02月14日 05:35pm 时添加 -=-=-=-
或者：
Move(1,Col) And Loop("Row < Rows+1", "If(Number(Cell(Row,1)) <= Row,"""",Eval(mid(Rept("" And Do(101)"",Number(Cell(Row,1))-Row),5))) And Next()",MaxFor(Grid,1))

egd文件下载