自动将《明细》表C、E、F三列的资料组合并去除重复填写在《图片》表A列，同时《图...

魂断蓝桥 · 发表于 2020-3-26 16:16

1AAAAA 发表于 2020-3-26 15:54
图片抽不出，只出了最后一张

明白了，删除
Application.ScreenUpdating = False
Application.ScreenUpdating = True 这两句代码

1AAAAA · 发表于 2020-3-26 17:39

魂断蓝桥发表于 2020-3-26 16:16
明白了，删除
Application.ScreenUpdating = False
Application.ScreenUpdating = True 这两句代码

太利害了，不知什么时候能到你这种境界，谢谢你！大有没有好资料推荐给我，我是刚开始接触VBA的小白。

1AAAAA · 发表于 2020-3-26 18:41

魂断蓝桥发表于 2020-3-26 16:03
我也不知道什么原因，点击两次就可以了。

还有个问题，当产品名含CP字母的时候，就会出错，能修改吗？

1AAAAA · 发表于 2020-3-26 18:43

魂断蓝桥发表于 2020-3-26 16:16
明白了，删除
Application.ScreenUpdating = False
Application.ScreenUpdating = True 这两句代码

大神，当产品含CP的时候代码就会出错，能再修改一下吗？

1AAAAA · 发表于 2020-3-26 18:46

3190496160 发表于 2020-3-26 14:50
Sub test()
Set d = CreateObject("scripting.dictionary")
With Sheets("明细")

你的代码不能用，不是我要的结果

3190496160 · 发表于 2020-3-26 20:57

1AAAAA 发表于 2020-3-26 18:46
你的代码不能用，不是我要的结果

哈哈哈，我无言以对

魂断蓝桥 · 发表于 2020-3-27 08:17

1AAAAA 发表于 2020-3-26 18:43
大神，当产品含CP的时候代码就会出错，能再修改一下吗？

上传一个出错的附件，我试一试

1AAAAA · 发表于 2020-3-27 09:30

本帖最后由 1AAAAA 于 2020-3-27 10:20 编辑

魂断蓝桥发表于 2020-3-27 08:17
上传一个出错的附件，我试一试

这是附件，你再看一下，谢谢大神！

1AAAAA · 发表于 2020-3-27 09:36

这是附件，你再看一下，谢谢大神！

魂断蓝桥 · 发表于 2020-3-27 10:40

1AAAAA 发表于 2020-3-27 09:36
这是附件，你再看一下，谢谢大神！

已经可以了。

图片名称没有规律，需要用到单元格copy

交货资料1.rar (331.91 KB, 下载次数: 6)

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

[求助] 自动将《明细》表C、E、F三列的资料组合并去除重复填写在《图片》表A列，同时《图...