求助：两列数据合并重复保留一个

wqjun · 发表于 2019-11-4 16:53

求助：两列数据合并重复保留一个.rar (8.63 KB, 下载次数: 26)

求助：两列数据合并重复保留一个，过滤空值

nsxlyj · 发表于 2019-11-4 17:00

=IFERROR(SMALL(IF(COUNTIF(A$2:B$12,ROW($1:$9)),ROW($1:$9)),ROW(A1)),"")

wqjun · 发表于 2019-11-4 17:30

nsxlyj 发表于 2019-11-4 17:00
=IFERROR(SMALL(IF(COUNTIF(A$2:B$12,ROW($1:$9)),ROW($1:$9)),ROW(A1)),"")

您好，只能合并 1-9 数字的吗，数据列输入 10 11 或其他字，合并列就不显示了

nsxlyj · 发表于 2019-11-4 17:36

wqjun 发表于 2019-11-4 17:30
您好，只能合并 1-9 数字的吗，数据列输入 10 11 或其他字，合并列就不显示了

模拟数据要和实际一致，否则难以找到想要的答案
把ROW($1:$9)改为ROW($1:$999)试试

藍色DE流光 · 发表于 2019-11-4 18:02

本帖最后由藍色DE流光于 2019-11-4 18:04 编辑

二选一、全部为数组公式
一、先横后纵按出现顺序依次提取

=INDIRECT(TEXT(MIN(IF(A$2:B$8*(1-COUNTIF(C$1:C1,A$2:B$8)),ROW($2:$8)/1%+{1,2},9999)),"r0c00"),)&""

复制代码

二、按数字大小依次提取

=IFERROR(SMALL(IF(COUNTIF(A$2:B$12,ROW($1:$99)),ROW($1:$99)),ROW(A1)),"")

复制代码

1055751654 · 发表于 2019-11-4 21:58

本帖最后由 1055751654 于 2019-11-4 22:23 编辑

Sub 去重()
Dim d, arr, x, y, arr1
Set d = CreateObject("scripting.dictionary")
arr = [a2:b10000]
For x = 1 To UBound(arr)
For y = 1 To 2
d(arr(x, y)) = 1
Next
Next
arr1 = Split(Application.Trim(Join(Application.Transpose(Application.Transpose(d.keys)))))
Debug.Print Join(arr1)
[c2:c65536].ClearContents
[c2].Resize(d.Count) = Application.Transpose(arr1)
End Sub

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

[已解决] 求助：两列数据合并重复保留一个

最新热点 /1