两个工作表间的复制粘贴问题

凌飞云天

把sheet1中A1：A3，B1：B3和C1：C3的数据依次粘贴到sheet2中A1：A3，A5：A7和A9：A11的相应位置，代码如下：Sub zt()
Dim i&
For i = 1 To 3
Sheets("sheet1").Range(Cells(1, i), Cells(3, i)).Copy
Sheets("sheet2").Range(Cells(4 * i - 3, 1), Cells(4 * i - 1, 1)).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next
End Sub
运行后提示：运行错误1004，应用程序定义或对象定义错误。请大师指点迷津。
（因工作中此类的复制粘贴会一次遇到上百个，以上问题只要解决，上百个复制粘贴会瞬间完成。）

liulang0808

Sheets("sheet1").Range(Sheets("sheet1").Cells(1, i), Sheets("sheet1").Cells(3, i)).Copy
其他部分做雷同修改看看吧

xiangbaoan

Sub zt()
Dim i%, r&
r = 1
For i = 1 To 3
    Sheets("sheet1").Range("a1").Offset(0, i - 1).Resize(3).Copy
    Sheets("sheet2").Range("a" & r).PasteSpecial xlPasteValues
    r = r + 4
Next
End Sub

凌飞云天

liulang0808 发表于 2018-9-24 16:29
Sheets("sheet1").Range(Sheets("sheet1").Cells(1, i), Sheets("sheet1").Cells(3, i)).Copy
其他部分做 ...

方法可行，太谢谢了

凌飞云天

此法甚好，向高人学习了。

凌飞云天

凌飞云天 发表于 2018-9-24 21:30
此法甚好，向高人学习了。

能解释一下Offset(0, i - 1)和Range("a" & r)各自的意思吗？