Excel 如何用VBA将数据复制粘贴到另一个位置

如何用VBA将数据复制粘贴到另一个位置呢，比如，我想将sheet1中第1,3列的数据粘贴到sheet3中的第1,2中则可以这么写

Sub shuju_paste()

Sheet1.Range("A:A,C:C").Copy

Sheet3.Range("A:B").PasteSpecial xlPasteAll

End Sub

那么，如果我想在sheet3中的第2行开始粘贴该怎么写代码呢？复制区域有65536行,而要粘贴的区域最多只有65535(你从a2开始的),所以盛不下啊哈!

试下这个:Sub shuju_paste()

Sheet1.Range("A1:A100,C1:C100").Copy

Sheet3.Range("A2").PasteSpecial xlPasteAll

End Sub[code=vb]Sub shuju_paste()

Sheet1.Range("A1:A" & [a65536].End(3).Row).Copy

Sheet3.Range("A2").PasteSpecial xlPasteAll

Sheet1.Range("C1:C" & [c65536].End(3).Row).Copy

Sheet3.Range("B2").PasteSpecial xlPasteAll

End Sub

[/code]也可先合并再粘贴

sub test()

Dim rng

with sheet1

Set rng = Application.Union(.Range("A:A"),. Range("C:C"))

end with

rng.Copy Sheet2.Range("A1")

End Sub