[已解决]第一次复制黏贴代码成功，可是运行第二次第三次就失败了~请老师帮忙~

lotgot

第一次复制黏贴代码成功，可是运行第二次第三次就失败了~请老师帮忙~

错误信息：
运行时错误 1004

无法清空剪贴板，另一应用可能仍在使用剪切板

类 Range 的copy 方法无效

第一次可以运行，重复运行第二次第三次就报错了，请问是否代码问题

1.     Worksheets("目录").Range("B2:B99").Copy _
   
2.     Destination:=Worksheets("Sum").Range("B2").End(xlUp).Row

复制代码

最佳答案

月排行榜 / 总排行榜

today0427

2016-6-19 14:44

一般没见过写.Range("B2").End(xlUp).Row 都是写.Range("B65536").End(xlUp).Row
而且你复制的是一列，那么copy 方法的Destination参数是不是应该指向一个单元格而不是一行呢？
例如：你想粘贴到B2单元格，就写
Destination:=Worksheets("Sum").Range("B2")

或者你想粘贴到现有数据的最后一行下面一行开始，那就是
Destination:=Worksheets("Sum").Range("b65536").End(xlUp).Offset(1, 0)

跳转到最佳答案楼层

today0427

一般没见过写.Range("B2").End(xlUp).Row 都是写.Range("B65536").End(xlUp).Row
而且你复制的是一列，那么copy 方法的Destination参数是不是应该指向一个单元格而不是一行呢？
例如：你想粘贴到B2单元格，就写
Destination:=Worksheets("Sum").Range("B2")

或者你想粘贴到现有数据的最后一行下面一行开始，那就是
Destination:=Worksheets("Sum").Range("b65536").End(xlUp).Offset(1, 0)

lotgot

today0427 发表于 2016-6-19 14:44
一般没见过写.Range("B2").End(xlUp).Row 都是写.Range("B65536").End(xlUp).Row
而且你复制的是一列，那 ...

用您的代码就ok了，错误不显示了
谢谢了哦