求助一段合并代码

Aotenjo168

同时判断Sheet1单元格A的订单号和单元格D的姓名，如果它们都一样则将J列的商品放到一块，其余单元格删了重复的。
如果Sheet1单元格A的订单号和单元格D的姓名有一样不一致，则不做任何合并。
Sheet2只是作为合并后的结果例示，在Shee1里运行合并就行，请直接帮助代码，每次复制运行后删除，无需以宏的形式留在表格内。
表格01.rar (8.48 KB, 下载次数: 5)

2020-7-29 12:26 上传

点击文件名下载附件

金樽空对月

Aotenjo168 发表于 2020-7-31 13:21
不是就用一次，而是放在一个文本里，不留在表格里，每次需要复制进去运行了删除。这样工作簿不带宏。

按你的要求写在了一个文本文件内，用的时候复制到工作薄内，用完你再删除就可以了。

详见附件，请查收

金樽空对月

详见附件，请查阅

Aotenjo168

金樽空对月 发表于 2020-7-30 16:47
详见附件，请查阅

老师，代码能实现效果，但是有个问题，就是工作簿有其他工作表时，需要合并的工作表不在表一时，运行代码后内容会跑去其他工作表以及会对其他工作表内容造成打乱。还请老师再给看看。

Aotenjo168

就是在需要合并的表格右键查看代码，然后复制进去运行后删除代码，运行结果于该合并操作的表格，不跑去其他表格。

hfwufanhf2006

Aotenjo168 发表于 2020-7-31 11:19
就是在需要合并的表格右键查看代码，然后复制进去运行后删除代码，运行结果于该合并操作的表格，不跑去其他 ...

我也帮你写了一个，与上面的大同小异吧。
输出结果会保存在按钮所在的表格，不会覆盖sheet1;

Aotenjo168

hfwufanhf2006 发表于 2020-7-31 11:47
我也帮你写了一个，与上面的大同小异吧。
输出结果会保存在按钮所在的表格，不会覆盖sheet1;

谢谢老师。能不能数据原表格Sheet1里直接代码复制进去运行合并后删掉代码，这样方便，代码不留在表格里也无需按钮和另外的表格。
K列的金额无需相加，和其他一样，如果合并删除重复的就行，不管数值一样不一样。

hfwufanhf2006

Aotenjo168 发表于 2020-7-31 12:12
谢谢老师。能不能数据原表格Sheet1里直接代码复制进去运行合并后删掉代码，这样方便，代码不留在表格里也 ...

那你就用 2楼的代码啊，他那个就是覆盖 sheet1 表的，不需要额外的表；至于运行后再删除代码，我不懂，不知道怎么删，也不明白为什么要删，难道你代码就用一次？

Aotenjo168

hfwufanhf2006 发表于 2020-7-31 13:02
那你就用 2楼的代码啊，他那个就是覆盖 sheet1 表的，不需要额外的表；至于运行后再删除代码，我不懂，不 ...

不是就用一次，而是放在一个文本里，不留在表格里，每次需要复制进去运行了删除。这样工作簿不带宏。

Aotenjo168

金樽空对月 发表于 2020-7-29 12:26
按你的要求写在了一个文本文件内，用的时候复制到工作薄内，用完你再删除就可以了。

详见附件，请查收

老师，代码实际使用发现一个问题，好像不能运行过了删除后再复制进去重复使用。比如平台A的订单合并完了，删除代码后同一个表格复制进去平台B的订单，然后再复制代码进去运行就发生（运行时错误“13”，类型不匹配），或者工作簿运行过其他VBA代码，虽然删除了，接着运行它时也是这样。