VBA含Select Case语句的函数返回值赋值单元格报错求助

看起来你遇到的核心问题是VBA函数返回值的写法错误——你在LookupSize函数里用了Return语句来返回字符串，但这不是VBA的正确语法！

先看你原函数里的错误写法片段：

Public Function LookupSize(Size) As String
    Select Case Size
        Case Is = 1
            Return '5/8" or 1/4"'
        ' 其他Case分支...
    End Select
End Function

问题根源 #

VBA中，函数的返回值是通过直接给函数名赋值来实现的，Return语句的作用是提前退出函数/子过程，不能用来返回数据。另外你的字符串里包含双引号，需要用两个双引号来转义，否则会触发编译报错。

修正后的函数代码 #

Public Function LookupSize(Size) As String
    Select Case Size
        Case 1 ' 可以简化Is = 1为直接写1
            LookupSize = "5/8"" or 1/4""" ' 双引号转义规则：用两个""表示一个"
        Case 2 ' 示例其他分支，根据你的实际需求补充
            LookupSize = "3/8"" or 1/2"""
        Case Else ' 建议添加默认分支，避免无匹配时返回空值引发的问题
            LookupSize = "未知尺寸"
    End Select
End Function

调用代码的优化建议 #

另外你的ChangeSizes子过程里，i没有声明类型，建议在模块顶部加上Option Explicit强制变量声明，避免潜在的类型错误：

Option Explicit ' 放在模块最顶部，强制所有变量必须声明

Sub ChangeSizes()
    Dim i As Integer ' 明确声明i的类型
    For i = 2 To 50
        Range("G" & i).Value = LookupSize(Range("G" & i).Value)
    Next i
End Sub

额外注意点 #

1. 如果Size参数是数字类型，最好给它指定明确类型（比如LookupSize(Size As Integer)），避免变体类型带来的意外问题。
2. 务必保留Case Else分支，否则当Size不匹配任何Case时，函数会返回空字符串，可能导致单元格内容不符合预期。

这样修改后，你的函数就能正常返回值并赋值给单元格了。

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