去重不干净

cyq4896 · 发表于 2023-7-22 20:45

参与一下..

xing_chen · 发表于 2023-7-22 20:46

gwjkkkkk 发表于 2023-7-22 20:21
请参考。。。

谢谢老师！真快！刚才事急离开会儿，没有说清楚，担心有老师会说按B列选择空格就可以了。回到此题，我想要的是：重名的，B列有的则保留对应的A列，B列没有的去重。比如，此题，浙江唯品会电子商务有限公司重复唯品会1行则可，老师这样代码如何修改呀

gwjkkkkk · 发表于 2023-7-22 20:52

xing_chen 发表于 2023-7-22 20:46
谢谢老师！真快！刚才事急离开会儿，没有说清楚，担心有老师会说按B列选择空格就可以了。回到此题，我想 ...

建议模拟一下结果，读文字理解起来有些歧义...

xing_chen · 发表于 2023-7-22 20:53

xdychina1 发表于 2023-7-22 20:29
速度很快，赞一个

老师！担心表达不请，发了个图片

xing_chen · 发表于 2023-7-22 20:55

w4275 发表于 2023-7-22 20:40

谢谢老师！可以帮忙再看看吗

xing_chen · 发表于 2023-7-22 20:56

cyq4896 发表于 2023-7-22 20:45
参与一下..

谢谢老师！可以帮忙再看看吗?

xdychina1 · 发表于 2023-7-22 21:33

.Range("b1").Resize(d.Count) = Application.Transpose(d.keys)

xing_chen · 发表于 2023-7-22 21:54

gwjkkkkk 发表于 2023-7-22 20:52
建议模拟一下结果，读文字理解起来有些歧义...

奥！老师下线休息了！谢谢！晚安！

xing_chen · 发表于 2023-7-22 22:07

风雨声点滴发表于 2023-7-22 18:28
Sub 去重()
With Sheets("名称")
R = .Cells(.Rows.Count, 1).End(xlUp).Row

谢谢老师！运行如愿

xing_chen · 发表于 2023-7-22 22:09

cyq4896 发表于 2023-7-22 20:45
参与一下..

谢谢老师！运行如愿！

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

[求助] 去重不干净