嘿，我一眼就看出你这段VBA函数的问题啦，编译报错是因为几个不符合VBA语法规则的写法，我给你逐个拆解并修正：

错误原因分析 #

• 错误使用Return返回值：VBA里的Return不是用来返回函数值的，它的作用是提前退出过程/函数。要给函数返回值，直接给函数名（也就是getServer）赋值就可以了。
• 语句格式问题：你把变量声明和函数声明挤在了同一行，而且多余的分号;也会干扰语法解析，VBA语句结尾不需要加分号。
• 代码排版混乱：所有语句堆在一起，不仅可读性差，也容易触发语法检查报错。

修正后的代码 #

Public Function getServer(env As String) As String
    Dim serverName As String
    
    Select Case env
        Case "DEV"
            serverName = "abc"
            getServer = serverName
        Case "TEST"
            serverName = "def"
            getServer = serverName
        Case "Prod"
            serverName = "xyz"
            getServer = serverName
        ' 可以加一个默认分支，避免传入未知参数时返回空值
        Case Else
            getServer = "Unknown Server"
    End Select
End Function

额外小建议 #

• 可以给Select Case加一个Case Else分支，这样当传入的env参数不是你定义的三个值时，函数会返回一个明确的提示，而不是空字符串。
• VBA默认不区分字符串大小写，如果需要严格匹配大小写，可以在模块顶部加上Option Compare Binary。

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