要求在附件内

zhouquyi · 发表于 2023-3-13 13:44

去重复并有查找功能，帮助修改一下，不会跨工作表引用

ykcbf1100 · 发表于 2023-3-13 14:08

数据范围加上sheet1试试。

半百 · 发表于 2023-3-13 14:23

把窗体上的列表框（ListBox1）换成文字框（TextBox1），然后加上下面的代码。

zhouquyi · 发表于 2023-3-13 14:52

半百发表于 2023-3-13 14:23
把窗体上的列表框（ListBox1）换成文字框（TextBox1），然后加上下面的代码。

arr(1) = "产品型号"
For i = 2 To Col.Count，这个测试为漏1项，换为1为显示不重复的全部，我用重复数字的方式验证的

xunanming · 发表于 2023-3-13 17:39

重写了一个,楼主可参考参考............

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

[求助] 要求在附件内