请各位老师帮忙解决一个复制问题

linsmeng · 发表于 2019-8-23 17:10

在7010/7020 sheet中都创建一个按钮，使当页内容复制到BOM sheet中，假如点击7010的按钮复制内容到BOM sheet中，在点击7020的按钮进行复制到BOM sheet中的话，已经复制的内容不会被覆盖，代码该如何编写，已添加附件，请老师帮忙，非常感谢；

microyip · 发表于 2019-8-23 17:14

对BOM先进行字典记录关键对比词，然后把想复制的内容进行循环对字典检查是否存在，不存在就把对应数据写到Bom表里

w609053988 · 发表于 2019-8-23 17:15

掌握range().end()用法你就明白了，rng1.copy sheets("BOM").cells(rows.count,1).end(xlup)(2,1)

linsmeng · 发表于 2019-8-23 18:10

w609053988 发表于 2019-8-23 17:15
掌握range().end()用法你就明白了，rng1.copy sheets("BOM").cells(rows.count,1).end(xlup)(2,1)

能不能具体帮忙写下呢，使用这段代码没能实现，对VBA刚刚开始学习不太会；

wcs98 · 发表于 2019-8-23 18:12

加。 QQ。吧

linsmeng · 发表于 2019-8-23 18:16

能帮忙实现功能么？

linsmeng · 发表于 2019-8-23 18:25

请老师帮忙写一小段代码实现功能，感谢；

w609053988 · 发表于 2019-8-24 09:17

linsmeng 发表于 2019-8-23 18:10
能不能具体帮忙写下呢，使用这段代码没能实现，对VBA刚刚开始学习不太会；

代码就一句，已经写完了，rng1替换成7010表中的区域就可以了(Sheets("7010").range("区域"))，7020表的代码照着写就可以了，

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

[求助] 请各位老师帮忙解决一个复制问题