主题：这样的自动编号如何实现？

如果你的数据量比较大，用evalfor重算可能会影响速度。

我有一方法，你可以试一下。
第一列默认值公式：cell(row-1,col)
第二列默认值公式：Number(cell(row-1,col))+1
按钮公式：

if([%A%]<=0,MsgBox("请输入要增加的行数",0),AddRows(Grid,1) And SetCellText(Grid,Row,"第一列",Right("000"+text(MaxFor(Grid,"第一列")+1),4)) And SetCellText(Grid,Row,"第二列",1) And eval(Mid(Rept(" And AddRows(Grid,1)",[%A%]-1),5)))

这样就不受数据量的影响了。