基于多列的XLookup重复邮箱查询VBA实现问题求助

一、原生Excel公式方案（基于XLOOKUP） #

利用XLOOKUP的精确匹配特性，结合IFERROR实现按顺序跨列查找，找不到则自动切换到下一列。

基础查找公式（返回找到的邮箱） #

=IFERROR(XLOOKUP(A2,E2:E6,E2:E6,""),IFERROR(XLOOKUP(A2,B:B,B:B,""),XLOOKUP(A2,C:C,C:C,"")))

• 逻辑：优先在E2:E6查找A2的邮箱，找到则返回对应值；若找不到，自动切换到B列查找；仍找不到则切换到C列，所有列都无匹配时返回空字符串。
• 优化建议：尽量使用具体单元格范围（如E2:E6）而非整列（E:E），减少计算量提升性能。

重复判断公式（直接返回"重复"/"无重复"） #

=IF(IFERROR(XLOOKUP(A2,E2:E6,E2:E6,""),IFERROR(XLOOKUP(A2,B:B,B:B,""),XLOOKUP(A2,C:C,C:C,"")))<>"","重复","无重复")

二、VBA自定义函数方案 #

如果需要更灵活的列顺序调整或批量处理，可编写自定义VBA函数实现按优先级查找：

自定义函数代码 #

Function FindDuplicateEmail(targetEmail As String, ParamArray lookupColumns() As Variant) As String
    Dim col As Variant
    Dim cell As Range
    
    ' 按传入顺序遍历各查找列
    For Each col In lookupColumns
        If TypeName(col) = "Range" Then
            ' 精确匹配查找目标邮箱
            Set cell = col.Find(What:=targetEmail, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If Not cell Is Nothing Then
                FindDuplicateEmail = cell.Value
                Exit Function ' 找到后立即终止查找
            End If
        End If
    Next col
    
    ' 所有列无匹配，返回空
    FindDuplicateEmail = ""
End Function

使用方法 #

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴上述代码；
2. 返回Excel工作表，在单元格中输入：

=FindDuplicateEmail(A2,E2:E6,B:B,C:C)

• 参数说明：第一个参数是要查找的目标邮箱（如A2），后续参数是按优先级排列的查找列范围；
• 若要直接判断重复，可嵌套IF：

=IF(FindDuplicateEmail(A2,E2:E6,B:B,C:C)<>"","重复","无重复")

内容的提问来源于stack exchange，提问作者Khai