主题：如何设置这个等差填充的按钮公式

如附件，有一个等差填充的按钮，希望帮忙设置一下函数公式。要求：1，自动定位在鼠标所在列（不能在公式里固定列名称）  2 第一行和第二行数据自行录入，根据所录入的数据决定2行之间差值是多少，进行填充（即 不能再函数公式里固定等差的数值）。感谢大侠指点。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:等差填充按钮.egd

[第一列]刷新公式：IF(Row = 1,[第一列],Cell(Row-1,Col) + 2)

如果用按钮公式：EvalFor(GridName,"第一列","IF(Row = 1,[第一列],Cell(Row-1,Col) + 2)")

 不行，不能在公式中有列名称，也不能在公式中有等差的差值，也就是说，鼠标在哪一列（或者选中哪一列），点击按钮，则根据该列第一行和第二行的数据进行等差填充。

 抱歉，把问题想复杂了，do（36）即可。