Question

excel vba 将 列做为变量

当变量i=1时，将区域A1：A10的数据复制到A21：A30，
当变量i=2时，将区域A1：A10的数据复制到B21：B30，
当变量i=3时，将区域A1：A10的数据复制到C21：C30，
当变量i=4时，将区域A1：A10的数据复制到D21：D30，
………………………………
当变量i=n时，将区域A1：A10的数据复制到………………
如何用VBA写啊，请大神指教

Answer 1

Sub aaa()
i = InputBox("请输入变量 i=")
If Len(i) = 0 Then Exit Sub
For j = 1 To 10
Cells( j+20, i + 1) = Cells(j, 1)
Next
End Sub

Answer 2

range("a1:a10").copy range("a21").offset(0,i-1)