一、原函数中If语句的问题 #

你写的NurZahl函数里的If语句有两个明显的语法错误：

1. 混淆了VBA逻辑运算符与Excel工作表函数：VBA里的逻辑或应该用Or关键字，而不是调用Excel工作表的OR()函数，而且不需要写成If(条件, TRUE, FALSE)这种格式——VBA的If语句直接写判断条件就行，条件为真就执行后续代码。
2. 缺少End If闭合语句：你的If块没有用End If结束，导致代码结构不完整，这也是Excel高亮报错的重要原因。

修正后的If部分代码应该是这样：

For i = 1 To Len(Text)
    Val = Mid(Text, i, 1)
    If IsNumeric(Val) Or Val = "," Then
        tmp = tmp & Mid(Text, i, 1)
    End If ' 必须添加这个闭合语句
Next i

另外还有个小问题：最后NurZahl = tmp会报错，因为函数返回类型是Long（整数），但tmp是包含逗号的字符串，建议把函数返回类型改成String，或者后续处理转成数值类型。

二、让Excel显示具体错误信息的方法 #

要看到明确的错误提示，你可以这么做：

• 开启自动语法检测：打开VBA编辑器，点击顶部菜单的「工具」→「选项」→「编辑器」，勾选「自动语法检测」，这样输入代码时如果有语法错误，会立即弹出对话框提示具体问题。
• 手动编译代码：在VBA编辑器里按Ctrl+D（或者点击工具栏的「运行」→「编译VBA项目」），编译时会扫描整个代码的语法问题，弹出明确的错误提示框，告诉你哪一行错了、错误原因是什么。

三、关于参考文档的疑问 #

你应该是混淆了Excel工作表函数和VBA语句的语法规则啦！微软文档里的IF()函数是给单元格公式用的，而VBA里的条件判断是If...Then...End If的语句结构，逻辑运算符用Or/And，不是工作表函数的OR()/AND()。如果要在VBA里调用工作表的OR函数，需要写成WorksheetFunction.OR(条件1, 条件2)，但这里完全没必要，直接用VBA原生的Or更简洁高效。

四、关于小数提取的正则方案补充 #

你后来用正则写的CleanString函数非常棒，正好匹配你的需求——提取数字和小数点（这里你用的是逗号，应该是对应欧洲区域的小数分隔符）。如果之后需要把提取的字符串转成可计算的数值，可以加一步处理，比如：

Function CleanString(strIn As String) As Double
    Dim objRegex
    Set objRegex = CreateObject("vbscript.regexp")
    With objRegex
        .Global = True
        .Pattern = "[^\d,]+"
        CleanString = Replace(.Replace(strIn, vbNullString), ",", ".")
    End With
    CleanString = CDbl(CleanString)
End Function

这样就能直接返回数值类型，方便后续计算。

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