[已解决]关于工作表中单元格的复制代码

cqxsg · 发表于 2011-7-29 08:49

我想把Sheet2表A1的内容复制到Sheet1表中的A1，点击一下就复制到Sheet1的下一个单元格A2，以此类推，想请教这个代码如何写，谢谢！

最佳答案

半个城市

2011-7-29 12:26

Sheets("Sheet1").Range("A" & Range("A65536").End(xlUp).Row + 1) = Sheets("Sheet2").Range("A1")
这个中不？

zjdh · 发表于 2011-7-29 09:54

本帖最后由 zjdh 于 2011-7-29 09:55 编辑

是将Sheet2表A1的内容依次复制到Sheet1表中的A1--A2----An中吗？

jbh121 · 发表于 2011-7-29 10:20

这个貌似不好控制呢。你随便一点，就过去一个，那么会乱的

半个城市 · 发表于 2011-7-29 12:26

Sheets("Sheet1").Range("A" & Range("A65536").End(xlUp).Row + 1) = Sheets("Sheet2").Range("A1")
这个中不？

cqxsg · 发表于 2011-7-29 12:28

回复半个城市的帖子

试了这个不错，先用着，呵呵，有问题再找你，{:011:}

glhfgtd · 发表于 2011-7-30 03:32

看看，学习一下

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