excel VBA 求 有些难度 的 复制与粘贴 的 代码

有两部分，1，先判断粘贴到哪个区域，2，因为是复制一次，粘贴一次，所以在每次粘贴的区域需要间隔N列。
求高手，请加QQ：991293105 传附件

财富分只有35，全部奉送。
为了不浪费财富分，发帖时0财富。

如复制的区域是同一个区域，只是粘贴的区域变化的话
Sub aa()
Dim arr
Dim x&
arr = Range("A1:A10") '复制的区域
For x = 3 To 20 Step 4 '从C1开始粘贴，间隔3列，粘贴5次
Cells(1, x).Resize(UBound(arr), 1) = arr
Next x
End Sub

sub s()     n = sheet1.cells(rows.count, 3).end(3).row     sheet1.range("c2:c" & n).copy     sheet2.range("c2:g2").pastespecial xlpasteall end sub

1.可能没有退出设计模式（在控件工具箱，点左上角那个），或是程序有问题 2.DIM是VBA命令，要在VBA状态下找（Alt+F11进入VBA窗口后）可以找到（在一大堆语句之中）在Visual Basic语言参考-语句(A-L)部分能找到