在A2单元格输入以下公式，然后向下填充
=REPT(ROW(A1),50)
详见附图
先竖着输入4个1，然后选中往下拖就有一直是1，2也是一样的
网页链接
这个教程里面的第二项应该可以满足你的需求，希望可以帮到你
VBA
