[已解决]这名话那里有问题

WENWENTF · 发表于 2010-1-29 10:20

我想把下面两人区域的的字复制到C1，可是不知那里出了问题

你们不要笑话我，我才学一两天，这里谢谢了

Sub song()
Range("a5:b12,b3:b15").Value = "你好"
Range("a5:b12,b3:b15").Copy
Range(c1).Paste
End Sub

最佳答案

amulee

2010-1-29 13:47

Sub song()
Range("a5:b12,b3:b15").Value = "你好"
Range("a5:b12,b3:b15").CurrentRegion.Copy
Range("c1").PasteSpecial
End Sub

兰色幻想 · 发表于 2010-1-29 10:24

Range(c1).Paste单元格对象没有paste方法的

[此贴子已经被作者于2010-1-29 10:25:06编辑过]

追风花影 · 发表于 2010-1-29 10:26

不明白？

WENWENTF · 发表于 2010-1-29 10:27

那应该用那一个方法呢，谢谢

WENWENTF · 发表于 2010-1-29 10:29

这名话如何改才可以运行啊

amulee · 发表于 2010-1-29 10:41

没看明白要干吗？这两个区域所有的字合并到C1？

WENWENTF · 发表于 2010-1-29 13:20

Range("a5:b12,b3:b15").Value = "你好"

这没问题

主要是想把上面的复制到从C1开始的单元格，（多少个单元格到无所未）

Range("a5:b12,b3:b15").Copy
Range(c1).Paste

amulee · 发表于 2010-1-29 13:47

Sub song()
Range("a5:b12,b3:b15").Value = "你好"
Range("a5:b12,b3:b15").CurrentRegion.Copy
Range("c1").PasteSpecial
End Sub

WENWENTF · 发表于 2010-1-29 16:43

谢谢

		自动登录	找回密码
密码			注册