根据匹配的excel列比较两个excel列中的数据

Question

假设我有以下格式的电子表格：

Sheet 1                    |  Sheet 2
name          email        |  name          email
Mike Jones    mikej@mail   |  John Smith    jsmith@mail    
John Smith    johns@mail   |  Mike Jones    mjones@mail    
John Public   jpublic@mail |  Chris Paul    cpaul@mail        
Chris Paul    cpaul@mail   |  John Public   jpublic@mail
Jim Abram     jambram@mail |
Tim Toole     ttoole@mail  |

我想比较具有匹配名称的条目的电子邮件，并显示不匹配的名称（如有必要，我可以将所有数据放在一张纸上），因此基本上，这将输出：

迈克·琼斯

约翰·史密斯

我正在尝试使用公式来执行此操作，但是我想我可能必须使用宏...谁能指出我这样的示例？

我正在尝试以下方法：

=IF(ISERROR(MATCH(Sheet1!A1,Sheet2!$A$1:$A$5,0)),(IF(ISERROR(MATCH(Sheet1!B1,Sheet2!$B$1:$B$5,0)), Sheet1!A1, ""),"")

并且非常想尝试将此表示为宏。

Answer 1

如果可以在第一页上插入一列，然后对其进行过滤以查找重复项，则可以执行以下操作：

name        email           Duplicate Count
Mike Jones  mikej@mail          0
John Smith  johns@mail          0
John Public jpublic@mail        1
Chris Paul  cpaul@mail          1
Jim Abram   jambram@mail        0
Tim Toole   ttoole@mail         0

重复计数列具有以下内容：

=SUMPRODUCT((D:D=A2)*1,(B2=E:E)*1)

其中D列和E列是上面的第二个表。

Answer 2

这是一些简短的代码，它们会将匹配项存储在工作簿中。 您需要包括对“ Microsoft脚本运行时”的引用。

Sub Compare(rng1 As Range, rng2 As Range, rngTarget As Range)
    Dim d As New Scripting.Dictionary
    Dim rngTemp As Range
    Const cMailCol As Long = 2

    For Each rngTemp In rng1.Columns(1).Cells
        d.Add rngTemp.Offset(cMailCol - 1).Value, rngTemp.Value
    Next

    For Each rngTemp In rng2.Columns(1).Cells
        If d.Exists(rngTemp.Offset(cMailCol - 1).Value) Then
            rngTarget = d(rngTemp.Offset(cMailCol - 1).Value)
            Set rngTarget = rngTarget.Offset(1)
        End If
    Next
End Sub

将其命名为Compare [A2:B7], [D2:E5], [G2]以将前两个范围的匹配项存储在G2中！

Answer 3

这是一种尝试快速简单的公式解决方案的尝试！！

1. 创建工作表3；
2. 名称单元格A1 =所有名称。 将所有名称（工作表1 +工作表2）粘贴到A列

3. 命名单元格B1 =电子邮件。
   输入B2 = IF(VLOOKUP(A2,Sheet1!$A$1:$B$7,2,0<>VLOOKUP(A2,Sheet2!$A$1:$I$5,2,0),VLOOKUP(A2,Sheet1!$A$1:$B$7,2,0),"")

4. 复制列B并粘贴为列C中的“值”

5. 将"#N/A"替换为""
6. 用""过滤C列
7. 在A栏查看您想要的结果。