类Range的PasteSpecial方法无效

冷风一夜

在学习VBA编程时，遇到了这样一个问题为在VBA中实现选择性粘贴，使用以下代码：

1. Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
2.         :=False, Transpose:=False

复制代码

运行时会出现“类Range的PasteSpecial方法无效”的提示。

若使用

1. Selection.Copy
   
2.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
3.         :=False, Transpose:=False

复制代码

就可以成功运行。
想了很久也没有想出原因，求教原因。
（无论是我自己写的，还是直接录制的宏都无法使用。）

冷风一夜

附件如下，希望大家帮忙看看了。

wudixin96

没有问题，是不是楼主没有选复制内容，

冷风一夜

wudixin96 发表于 2011-10-3 15:35
没有问题，是不是楼主没有选复制内容，

绝对选择了，手动复制的，无法运行宏。

冷风一夜

如图，我是手动复制，手动选择行，然后希望利用宏实现选择性粘贴的

冷风一夜

错误提示如下

冷风一夜

完全相同的代码，用别人做的就可以运行，我自己做的就不行

冷风一夜

我感觉非常奇怪，完全一样的代码，别人的就能正常运行，自己的就不行。

lsftest

附件只有一句东西啊。。
可能是你复制的区域与目标的区域大小不一致。。。
试试粘贴时不要选range（例如b1：b8），而是只选一个单元格（例如只选b1）进行粘贴

冷风一夜

问题是只有一句话也无法运行，甚至直接录制的宏也无法运行。