请教一个VBA中copy方法的使用问题！

miequeshi

使用的EXCEL版本为2010
代码如下：
Sub 输入100()
Range("a1").Value = 100
Range("a1").Copy Destination:=Range("b1"), Destination:=Range("b2")
End Sub


想要实现的效果为：
在单元格A1中输入100，然后复制单元格A1的内容到单元格B1和B2

遇到的问题：
在调试上述代码中，遇到报错，错误内容为“运行时错误‘450’，错误的参数号或无效的属性赋值”

我是平

Sub 输入100()
Range("a1").Value = 100
Range("a1").Copy Destination:=Range("b1:b2")
End Sub

2nd reply:
如果写多个参数，可以写成, 就是单元格的表示方法

1. Range("a1").Copy Destination:=Range("b1,e1,f1,h10,g5:g9")

复制代码

miequeshi

我是平 发表于 2013-2-19 20:16
Sub 输入100()
Range("a1").Value = 100
Range("a1").Copy Destination:=Range("b1:b2")

嗯·谢谢
补充下：主要我是想知道，我上面那段代码为什么会出现调试错误，我是根据教程上多个参数的书写格式去编写的代码，如果我今后还要编写多个参数，那我该如何编写。如复制到单元格B1和H1这样

iaskmore

Range("a1").Copy Destination:=Range("b1"), Destination:=Range("b2")
这句有问题。
你应该指定赋值的范围，而用，来为b1 和b2分别赋值写法也错了
可以写为：Range("a1").Copy range("b1:b2")
Range("a1").Copy  Range("b1"),
Range("a1").Copy  Range("b2"),
还有Destination：可以省略

miequeshi

iaskmore 发表于 2013-2-19 20:37
Range("a1").Copy Destination:=Range("b1"), Destination:=Range("b2")
这句有问题。
你应该指定赋值的范 ...

恩好的，我去试下，谢谢·

hhjjpp

Worksheets([p3].Value)或Worksheets([z3])这种写法居然会引起下标越界的错误！

Sheets([p3]).Range([q3]).Copy Range([r3])或Sheets([p3].value).Range([q3]).Copy Range([r3])也会引起类型不匹配的错误！

ggsmart

出现编译错误，是因为VBA不允许为COPY方法设置两个Destination参数。
如果要粘贴到多个区域，可以用楼上大家介绍的办法，也可以执行两次复制粘贴的代码

v111v111v

Range("a1").Copy range("b1:b2")这一句找了半天，原来很简单呀，不是copy to