主题：同一列向下循环复制的问题

请教：如何将某列前50行的内容自动复制到本列的下n个50行去？公式如何写？

select结合复制、粘贴函数进行操作

smileboy 版主：能不能给个公式呀，可以在自定义窗口中应用的。谢谢了！

发文件

没有文件，只是一个想法，试了试做不了！ 按照你的用select，这样的公式：select(1,1,50,1)and do(22)and move(1,51)and do(24)and move(1,101)and do(24)and move(1,151)and do(24)and ............可以吗？

好象本人自己试了，无效啊！错在哪呢？

是我自己颠倒了，select(1,1,50,1)and do(22)and move(51,1)and do(22)and do(24)and move(101,1)and do(24)and move(151,1)and do(24)and ............这样可以了！ 谢谢

如将前6行复制到7-12行：
自定义按钮：AddRows("表1",6) And Select(1,1,6,Cols) And Do(22) And Move(7,1) And Do(24)

如果我想循环100次，那公式太长了，有简便的公式吗？ 谢谢

想循环多少次都没有问题。

EvalFor(Grid,"第一列","if(row<51,[第一列],Cell(Row-50,""第一列""))")