
excel 重叠筛选 15
表1和表2的A列为客户名,并且有部分客户名重复,请求将表2的A列和表1的A列比较,将没有重复的用户名筛选出来。...
表1和表2的A列为客户名,并且有部分客户名重复,请求将表2的A列和表1的A列比较,将没有重复的用户名筛选出来。
展开
5个回答
推荐于2016-03-29 · 知道合伙人软件行家
关注

展开全部
意思是说在表1的A列的客户名在表2如果找不到 提出来
同样表2A列的客户名在表1找不到的也 提出来吗?
还是两组数据去重?
Sub 查找()
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Set d3 = CreateObject("scripting.dictionary")
Set d4 = CreateObject("scripting.dictionary")
Set s1 = Sheets(1)
Set s2 = Sheets(2)
xr1 = s1.[a65536].End(3).Row
xr2 = s2.[a65536].End(3).Row
ar1 = s1.Range("a1:a" & xr1)
ar2 = s2.Range("a1:a" & xr2)
For i = 1 To xr1
d1(ar1(i, 1)) = ""
Next
For j = 1 To xr2
d3(ar2(j, 1)) = ""
Next
Br1 = d1.keys: Br3 = d3.keys
For y = 0 To d1.Count - 1
ss = Application.CountIf(s2.Range("a1:a" & xr2), Br1(y))
If ss = 0 Then d2(Br1(y)) = ""
Next
For yy = 0 To d3.Count - 1
ss1 = Application.CountIf(s1.Range("a1:a" & xr1), Br3(yy))
If ss1 = 0 Then d4(Br3(yy)) = ""
Next
s2.Range("B1").Resize(d2.Count, 1) = Application.Transpose(d2.keys)
s2.Range("B" & s2.[b65536].End(3).Row + 1).Resize(d4.Count, 1) = Application.Transpose(d4.keys)
Set d1 = Nothing
Set d2 = Nothing
Set d3 = Nothing
Set d4 = Nothing
End Sub
对比结果放在了表2 B列
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
设数据均在A2开始下列,
在表2的B2格输入:
=if(countif(表1!A:A,A2)=0"X",""),下拉
所有B列含“X”的数据均为表1没有的数据。
在表2的B2格输入:
=if(countif(表1!A:A,A2)=0"X",""),下拉
所有B列含“X”的数据均为表1没有的数据。
追问
提示键入公式有错误怎么办。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
数据透视表可以哈,附件呢?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询