Excel自定义VBA函数报错无法识别文本，求修复及代码保存方案

问题背景 #

首次编写的VBA自定义函数CheckForFloodInRange原本可正常检测指定区域内是否包含“flood”文本（存在返回1，不存在返回0），现在弹出报错：Function in excel contains unrecognized text。

核心解决步骤 #

1. 替换代码中的转义引号 #

你提供的代码里使用了HTML转义字符"，这是VBA编辑器无法识别的字符，必须替换为标准双引号"。

修正后的完整代码：

Function CheckForFloodInRange(rng As Range) As Integer
    Dim cell As Range
    Dim found As Boolean
    found = False
    
    For Each cell In rng
        If InStr(1, cell.Value, "flood", vbTextCompare) > 0 Then
            found = True
            Exit For
        End If
    Next cell
    
    If found Then
        CheckForFloodInRange = 1
    Else
        CheckForFloodInRange = 0
    End If
End Function

2. 验证函数运行 #

• 按Alt+F11打开VBA编辑器
• 找到存放该函数的模块，删除原有代码并粘贴修正后的代码
• 保存模块后返回Excel，在单元格中输入=CheckForFloodInRange(指定检测区域)（比如=CheckForFloodInRange(A1:D20)），测试是否正常返回结果

3. 永久保存函数 #

要让函数随文件保留，必须将文件保存为启用宏的工作簿格式：

• 点击「文件」>「另存为」
• 选择保存位置，在「保存类型」下拉菜单中选择「Excel 启用宏的工作簿 (*.xlsm)」
• 命名文件后完成保存

额外排查方向（若替换后仍报错） #

• 测试仅包含纯文本的小区域，排查是否有单元格含VBA无法解析的特殊编码字符
• 确认函数名、模块名未与Excel内置函数或其他自定义代码冲突
• 检查宏安全设置：依次点击「文件」>「选项」>「信任中心」>「信任中心设置」>「宏设置」，临时选择「启用所有宏」测试，问题解决后再调回安全级别

内容的提问来源于stack exchange，提问作者Melanie A Kool