从另一个VBA UDF调用UDF函数时出现#VALUE!错误求助

错误根源 #

你的SpCharsInCellRange作为工作表UDF报错#VALUE!，核心原因有三点：

• UDF运行限制：Excel禁止工作表调用的UDF执行Activate/Select操作，也不允许弹出MsgBox这类交互窗口，这些操作会直接触发#VALUE!错误。
• 硬编码引用缺陷：直接写死工作簿、工作表名称和单元格区域，不仅灵活性差，还会在目标工作簿未打开时触发错误。
• ContainsSpecialCharacters逻辑bug：原代码遇到合法字符时会将返回值重置为False，如果字符串前半部分有特殊字符、后半部分是合法字符，最终会错误返回False。

修正后的完整代码 #

先在模块顶部添加Option Explicit强制变量声明，避免隐式变量错误：

Option Explicit

Function SpCharsInCellRange(rng As Range) As Boolean
    Dim cell As Range
    ' 遍历传入的区域单元格
    For Each cell In rng
        ' 跳过空单元格
        If cell.Value <> "" Then
            If ContainsSpecialCharacters(CStr(cell.Value)) Then
                SpCharsInCellRange = True
                Exit Function ' 找到特殊字符直接返回，提升效率
            End If
        End If
    Next cell
    ' 遍历完无特殊字符，返回False
    SpCharsInCellRange = False
End Function

Function ContainsSpecialCharacters(str As String) As Boolean
    Dim i As Integer
    Dim ch As String
    ' 初始设为False，找到特殊字符再修改状态
    ContainsSpecialCharacters = False
    
    For i = 1 To Len(str)
        ch = Mid(str, i, 1)
        Select Case ch
            ' 定义需要检测的特殊字符集合
            Case Chr(64), Chr(34), Chr(38), Chr(39), Chr(10), Chr(13)
                ContainsSpecialCharacters = True
                Exit For ' 找到即退出循环，无需继续检测
            ' 合法字符不改变状态，直接跳过
            Case "0" To "9", "A" To "Z", "a" To "z", " "
                ' 无操作
            ' 其他未定义字符按合法处理，若需视为特殊字符可调整此处逻辑
            Case Else
                ' 无操作
        End Select
    Next i
End Function

使用说明 #

1. 在工作表中调用时，直接传入目标区域即可，示例：

   =SpCharsInCellRange(E20:E29)
   

2. 若需检测其他已打开工作簿的区域，直接引用即可，示例：

   =SpCharsInCellRange([OtherWorkbook.xlsx]Sheet1!A1:C10)
   

关键优化点 #

• 移除Activate和MsgBox操作，符合UDF运行规则
• 改为接受Range参数，让函数灵活适配任意单元格区域
• 修复ContainsSpecialCharacters的逻辑bug，确保只要存在特殊字符就返回True
• 遍历区域时提前退出循环，提升运行效率

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