如何使用VBA根据B列邮箱域名匹配结果在D列输出对应特定值？

方案1：原生公式实现（无需写代码，适合大多数场景） #

第一步：提取@符号后的域名内容 #

你之前查阅的RIGHT+FIND组合是完全可行的，旧版Excel（2019及以前）通用提取写法：
=RIGHT(B2,LEN(B2)-FIND("@",B2))
核心逻辑非常清晰：

• FIND("@",B2) 定位@符号在邮箱字符串中的位置序号
• 用单元格总字符长度LEN(B2)减去@的位置序号，得到域名部分的字符长度
• 最后用RIGHT从右往左截取对应长度的字符，就能拿到纯域名内容
  如果是365/2021及以后的新版本Excel，有更简单的专用函数，直接写=TEXTAFTER(B2,"@")即可提取域名。

第二步：编写匹配规则返回对应值 #

你猜测的IFS组合写法完全可用，在D2单元格输入对应公式后下拉填充到D60区域即可生效：

新版本Excel（支持IFS/TEXTAFTER/LET函数）

=LET(
  domain, TEXTAFTER(B2,"@"),
  IFS(
    domain = "ahcptcare.com", "APC",
    domain = "upschyd.com", "UDP",
    TRUE, "未匹配"
  )
)

旧版本Excel（无IFS/TEXTAFTER函数）

=IF(
  RIGHT(B2,LEN(B2)-FIND("@",B2))="ahcptcare.com",
  "APC",
  IF(
    RIGHT(B2,LEN(B2)-FIND("@",B2))="upschyd.com",
    "UDP",
    "未匹配"
  )
)

后续扩展规则成本很低：新版本直接在IFS函数内新增判断行即可，比如要加域名example.com对应标识"EXP"，就新增一行domain = "example.com", "EXP",；旧版本在嵌套IF结构里再加一层判断就行。

如果不想每次加规则都修改公式，可以单独建一个域名-标识映射表（比如F列存域名、G列存对应标识），用查找公式自动匹配，后续加规则只需要往映射表里填数据，完全不用改动D列已有公式：

// 新版本写法
=XLOOKUP(TEXTAFTER(B2,"@"),F:F,G:G,"未匹配",0)

// 旧版本写法
=IFERROR(VLOOKUP(RIGHT(B2,LEN(B2)-FIND("@",B2)),F:G,2,FALSE),"未匹配")

方案2：VBA自定义函数实现（适合规则多、需要批量处理的场景） #

按Alt+F11打开VBA编辑器，右键点击当前工作簿插入「模块」，把以下代码粘贴到模块代码区：

Function GetEmailTag(emailAddr As String) As String
    ' 提取@符号后的域名并统一转小写，避免大小写差异导致匹配失败
    Dim emailDomain As String
    emailDomain = LCase(Mid(emailAddr, InStr(emailAddr, "@") + 1))
    
    ' 以下为匹配规则区，新增规则直接加Case行即可
    Select Case emailDomain
        Case "ahcptcare.com"
            GetEmailTag = "APC"
        Case "upschyd.com"
            GetEmailTag = "UDP"
        Case Else
            GetEmailTag = "未匹配" ' 无匹配规则时的兜底返回值，可自行修改
    End Select
End Function

保存后回到Excel界面，D2单元格直接输入=GetEmailTag(B2)，下拉填充到D60即可生效。后续新增匹配规则，只要在VBA代码的Select Case块里新增对应的Case "域名": GetEmailTag = "对应标识"行就行。

注意：以上所有写法都是精确匹配@后的完整域名，不会因为邮箱前缀包含域名关键词出现误判，比直接用SEARCH做模糊匹配的稳定性更高。

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