主题：电话重复

我现在遇到这么一个问题，，求各位老师帮忙解决一下/。。

If e.DataCol.Name = "电话" Then
    Dim dr As DataRow
    dr = e.DataTable.sqlFind("电话 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        e.Cancel = True
    End If
End If

如果我DataColChanging这么写

我在合并EXCEL表格时不会显示重复的电话号码，有什么方法可以知道都哪些电话号码重复了。