一对多查询，提取所有非重复值

aoiwood · 发表于 2020-1-13 13:40

一对多查询，提取所有非重复值

说明：数据源表，后续会增加行数。

我的公式哪里不对，为何只能提取部分非重复值

魚。。 · 发表于 2020-1-13 14:14

本帖最后由魚。。于 2020-1-13 14:16 编辑

上传附件……

袁勇 · 发表于 2020-1-13 14:20

求不重复，一般多加一个条件：countif(range,range)=0。

micch · 发表于 2020-1-13 14:36

match不能这样用的，if的结果并不是第一次出现的位置

aoiwood · 发表于 2020-1-13 16:23

这是附件。请大佬修改

aoiwood · 发表于 2020-1-13 16:23

魚。。发表于 2020-1-13 14:14
上传附件……

已上传附件

1055751654 · 发表于 2020-1-13 16:45

代码挺好用的
Option Explicit
Sub 字典法专业去重复()
Dim dic, arr, x%, n%
Set dic = CreateObject("scripting.dictionary")
With Sheets(2)
arr = Sheets(1).Range("a1").CurrentRegion
For x = 2 To UBound(arr)
      If arr(x, 2) = .[c3].Text Then
         If Not dic.Exists(arr(x, 2)) Then: dic(arr(x, 3)) = ""
      End If
Next
.Range("a16:a" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
.[a16].Resize(dic.Count) = Application.Transpose(dic.keys)
Set dic = Nothing
End With
End Sub

aoiwood · 发表于 2020-1-14 10:17

1055751654 发表于 2020-1-13 16:45
代码挺好用的
Option Explicit
Sub 字典法专业去重复()

这个是完全不懂啊

ws278106483 · 发表于 2020-1-14 10:25

PQ来一个。

BOBO16729 · 发表于 2020-1-14 10:37

=IFERROR(INDEX(XX!B:B,SMALL(IF(ISNUMBER(FIND(Sheet2!$C$3,XX!$B2:$B13)),ROW(XX!$B2:$B13),10^10),ROW(1:1))),)&""数组公式不能用match，要用find

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

[已解决] 一对多查询，提取所有非重复值

评分