VBA自定义函数执行后单元格空白、无法返回字符串的问题咨询

函数调用后单元格返回空白，由3处代码错误导致：

• 匹配条件中的区域名称（Atlantic、West等）未添加双引号，VBA会将无引号的文本识别为未定义的空值变量，所有If判断均无法命中
• Else分支赋值对象错误：代码写为Region = "x"，是给输入参数赋值，未给函数返回值载体（与函数同名的Email变量）赋值，未命中分支时函数默认返回空字符串
• 重复编写了两次Region = Atlantic的判断分支，排在后面的分支永远不会触发，属于无效冗余逻辑

推荐用更易维护的Select Case结构替代多层ElseIf判断，代码如下：

Function Email(Region As String) As String
    Select Case Region
        Case "Atlantic"
            Email = "email1@gmail.com"
        Case "West"
            Email = "email2@gmail.com"
        Case "Pacific"
            Email = "email3@gmail.com"
        Case "Ontario"
            Email = "email4@gmail.com"
        Case "Quebec"
            Email = "email5@gmail.com"
        Case Else
            Email = "x"
    End Select
End Function

修正要点：

1. 所有用于匹配的字符串常量统一添加双引号，避免被识别为未定义变量
2. 所有分支（包括兜底的Else分支）均正确给Email赋值，确保任意输入都有明确返回值
3. 删除重复的Atlantic判断分支，调整分支结构降低后续维护成本
4. 函数使用方式和内置Excel函数一致，在单元格输入=Email(目标单元格)即可返回对应结果，比如要匹配A1单元格的区域值，就输入=Email(A1)

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