本文最后更新于2019-07-06，已超过 1年没有更新，如果文章内容、图片或者下载资源失效，请留言反馈，我会及时处理，谢谢！
温馨提示：本文共309个字，读完预计1分钟。
PS : 转载的， 仅供参考
Sub Copy_Auto()
Dim i
For i = 1 To 10
Range(Cells(1, 2), Cells(10, 2)).Copy Range(Cells(10 * i + 1, 2), Cells(10 * i + 10, 2))
Next
End Sub
上述代码的意思就是：
把第1行第2列到第10行第2列的数据，往下拷贝10次！
———————
版权声明：本文为CSDN博主「路漫远吾求索」的原创文章，遵循CC 4.0 by-sa版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/starstar1992/article/details/80550110
