LibreOffice Calc自定义函数LIMPA失效及数组公式报错求助

一、正则匹配失效的修复 #

当前函数返回原字符串，说明正则^\d+\:\d+\sPM未匹配到目标字符串开头的时间片段，可从以下方向修复：

• 调整正则表达式：
  • 若目标字符串中的空格是特殊空白（如非-breaking空格），将\s替换为[\s\u00A0]覆盖所有空白类型；或直接用实际空格 替代\s测试。
  • 在Calc单元格中直接执行=REGEX("5:32 PMMuitas letras", "^\d+\:\d+\sPM", "", 0)验证正则有效性。如果单元格测试正常，再排查函数调用逻辑。
• 修正函数调用参数：
  将REGEX的flags参数改为1（全局匹配模式），即使仅替换开头内容，全局模式不影响单次匹配结果，但能避免部分环境下的匹配异常：

  LIMPA = oFunctionAccess.callFunction("REGEX", Array(x, "^\d+\:\d+\sPM", "", 1))
  

二、数组公式报错的修复 #

自定义函数默认不支持数组输入，需修改代码适配数组场景：

1. 修改参数类型：把x as String改为x as Variant，让函数能接收数组类型的输入。
2. 添加数组遍历逻辑：判断输入是否为数组，逐个处理元素后返回数组结果：

   Function LIMPA(x as Variant) as Variant
       Dim oFunctionAccess As Object
       Dim result() As String
       Dim i As Integer
       oFunctionAccess = createUnoService("com.sun.star.sheet.FunctionAccess")
       
       If IsArray(x) Then
           ReDim result(LBound(x) To UBound(x))
           For i = LBound(x) To UBound(x)
               result(i) = oFunctionAccess.callFunction("REGEX", Array(x(i), "^\d+\:\d+\sPM", "", 1))
           Next i
           LIMPA = result
       Else
           LIMPA = oFunctionAccess.callFunction("REGEX", Array(x, "^\d+\:\d+\sPM", "", 1))
       End If
   End Function
   

3. 正确使用数组公式：输入公式后按Ctrl+Shift+Enter（Windows/Linux）或Cmd+Shift+Enter（Mac）确认，触发数组公式执行逻辑。

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