一段有用的excel 宏命令

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次！