重复项处理的问题

d84697843 · 发表于 2021-4-28 22:44

本帖最后由 d84697843 于 2021-4-28 23:32 编辑

求解，如何把A列数据用函数实现删除B列重复项，并且增加C列非重复项，最后输出到D列。具体例子已经在附件里了，希望有大佬救救孩子

fsw0812 · 发表于 2021-4-29 10:49

你的意思不就是将abc去除重复项之后放到d列么？

fsw0812 · 发表于 2021-4-29 10:58

顶部插入一行，之后

D2=INDIRECT(TEXT(MIN((COUNTIF(D$1:D1,$A$2:$C$12)+($A$2:$C$12<=""))/1%%+ROW($A$2:$C$12)/1%+COLUMN($A$2:$C$12)),"r0c00"),)&""

复制代码

数组，下拉

d84697843 · 发表于 2021-5-6 13:58

本帖最后由 d84697843 于 2021-5-6 13:59 编辑

fsw0812 发表于 2021-4-29 10:58
顶部插入一行，之后数组，下拉

这个不对啊，B列的数据依然存在

d84697843 · 发表于 2021-5-6 14:00

fsw0812 发表于 2021-4-29 10:49
你的意思不就是将abc去除重复项之后放到d列么？

我意思是跟A列对比，删除B列重复项，并且增加C列非重复项，然后输出新的一列

njzz00421 · 发表于 2021-5-7 13:38

Sub t()
Sheet1.[d1:d10000].Clear
Set d = CreateObject("scripting.dictionary")
arr = Sheet1.[a1].CurrentRegion
For Each ss In arr
d(ss) = ""
Next ss
If d.exists("") Then d.Remove ("")
Sheet1.[d1].Resize(d.Count, 1) = WorksheetFunction.Transpose(d.keys)
End Sub

d84697843 · 发表于 2021-5-11 18:12

njzz00421 发表于 2021-5-7 13:38
Sub t()
Sheet1.[d1:d10000].Clear
Set d = CreateObject("scripting.dictionary")

大佬！但是我看不懂也不会用o(╥﹏╥)o一脸懵逼

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

[求助] 重复项处理的问题