如何用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