使用VBA对一个单元格中的每个逗号分隔值执行vlookup操作，并返回电子邮件

Function VLookupEmails(cell As Range) As String
    Dim values As Variant
    Dim result As Variant
    Dim lookupRange As Range
    Dim resultArray() As String
    Dim i As Integer
    
    ' 拆分单元格中的逗号分隔值
    values = Split(cell.Value, ",")
    
    ' 设置vlookup的查找范围
    Set lookupRange = Range("A1:B10") ' 这里可以根据实际情况修改
    
    ' 遍历拆分后的每个值执行vlookup操作
    For Each value In values
        result = Application.VLookup(Trim(value), lookupRange, 2, False)
        
        ' 将结果存储在数组中
        If Not IsError(result) Then
            ReDim Preserve resultArray(i)
            resultArray(i) = result
            i = i + 1
        End If
    Next value
    
    ' 合并结果数组中的值为一个字符串
    VLookupEmails = Join(resultArray, ",")
End Function