excel 重叠筛选

发布网友发布时间：2022-06-15 14:41

共5个回答

热心网友时间：2023-10-25 15:50

两张excel表格筛选重叠部分的方法：

在每个工作表数据列后加一列，第一个工作表加一列1，第二个工作表加一列2，合并计算，将两个工作表的区域添加进合并计算区域，得到一个新的数据区域，第二列计算值是1的说明只在第一个工作表出现过，第二列计算值是2的说明只在第二个工作表出现过，第二列计算值是3的说明在两个工作表重复出现过。

热心网友时间：2023-10-25 15:50

意思是说在表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列

热心网友时间：2023-10-25 15:51

Vlookup 会用嘛？

查找相同的输出找不到的就是不重复的

热心网友时间：2023-10-25 15:51

设数据均在A2开始下列，
在表2的B2格输入：
=if(countif(表1!A:A,A2)=0"X",""),下拉
所有B列含“X”的数据均为表1没有的数据。追问提示键入公式有错误怎么办。

热心网友时间：2023-10-25 15:52

数据透视表可以哈，附件呢？