[已解决]range选择性粘贴无效？

cxzfy12758

Dim x As Integer
Dim y As Integer
x = Sheets("网页采集").Range("v65536").End(xlUp).Row
y = Sheets("数据").Range("d65536").End(xlUp).Row
Range("v" & x).Copy Sheets("数据").Range("d" & y + 1)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
出现错误1004，range的PasteSpecial 类方法无效？是什么原因？

最佳答案

月排行榜 / 总排行榜

zjdh

2011-9-26 13:20

看3楼            .

跳转到最佳答案楼层

zjdh

看3楼            .

fjmxwrs

1. Dim x As Integer
   
2. Dim y As Integer
   
3. x = Sheets("网页采集").Range("A65536").End(xlUp).Row
   
4. y = Sheets("数据").Range("A65536").End(xlUp).Row
   
5. Sheets("数据").Range("A" & y + 1).vlaue=Sheets("网页采集").Range("V" & x).value
   

复制代码

zjdh

1. Dim x As Integer
   
2. Dim y As Integer
   
3. x = Sheets("网页采集").Range("V65536").End(xlUp).Row
   
4. y = Sheets("数据").Range("d65536").End(xlUp).Row
   
5. Range("V" & x).Copy
   
6. Sheets("数据").Range("d" & y + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

复制代码

cxzfy12758

fjmxwrs 发表于 2011-9-26 13:24

谢谢。！！！！

hongqiqqq

路过，学习了