两列对照查找不重复姓名并在指定单元格显示

两列对比查找不重复姓名并在指定单元格显示
将A、B两列姓名（各1000多名，两列姓名的数量相等）对比找出B列有A列没有的姓名，并在C1单元格中显示B列有A列没有的姓名（实际不重复的只有一名），请各位帮忙解决，VBA和函数都行。不胜感激！
[最优解释]

Sub distinct()
    Dim d As Object, i&, ar
    Set d = CreateObject("scripting.dictionary")
    ar = [a2].CurrentRegion
    For i = 1 To UBound(ar)
        d(ar(i, 1)) = ""
    Next
    For i = 1 To UBound(ar)
        If Not d.exists(ar(i, 2)) Then
            [d1] = ar(i, 2)
            Exit For
        End If
    Next
End Sub