[已解决]寻求一个vba复制选择数值粘贴的代码

yslvictor

在工作表里的复制，选择数值粘贴这个我会。现在想问各位论坛老师，用vba选择数值粘贴的代码是什么？（因为我想做个宏按钮）
比如：把sheet1的a1：j10的内容，以数值的方式粘贴到sheet2的h11：q20的位置上（说明：sheet1的a1:j10里有一些是公式，操作的结果就像在工作表里的复制-选择性粘贴-数值粘贴那样的效果一样。)，请论坛老师给写段代码。谢谢。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-16 07:38

1. Sub 复制粘贴()
   
2.     Worksheets("sheet1").Range("a1:j10").Copy
   
3.     Worksheets("sheet2").Range("h11").PasteSpecial xlPasteValues
   
4. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Worksheets("sheet1").Range("a1:j10").Copy
   
2. Worksheets("sheet2").Range("h11").PasteSpecial xlPasteValues

复制代码

hwc2ycy

1. Sub 复制粘贴()
   
2.     Worksheets("sheet1").Range("a1:j10").Copy
   
3.     Worksheets("sheet2").Range("h11").PasteSpecial xlPasteValues
   
4. End Sub
   

复制代码

chin15

Sheet2.[h11:q20] = Sheet1.[a1:j10].Value

yslvictor

2楼的老师的答案正是我想要的结果。谢谢各位论坛老师。

小蚊子

zhangtiande58

两句并一句，最简代码：
sub test
Worksheets("sheet1").Range("a1:j10").Copy Worksheets("sheet2").Range("h11")
End Sub

常思

zhangtiande58 发表于 2015-1-22 11:47
两句并一句，最简代码：
sub test
Worksheets("sheet1").Range("a1:j10").Copy Worksheets("sheet2").Ran ...

这样贴过来的应该不是选择性粘贴中的数值格式