使用VBA /VBA中的自定义函数提取Excel中特定文本后的数字

Question

我在单元格中有一段文本，如下所示：

案例 1：ABC A/C# 123案例 2 ： 854ABC A/C#854

但是，我只想在字符"A/C"之后提取数字。

如果你们可以建议一个带有自定义函数的代码，那就太好了，这样我就可以像默认的 excel 函数一样直接使用该代码。

Answer 1

Function GetString(cell)
    With CreateObject("VBScript.RegExp")
        .Pattern = "A/C#s*(d+)"
        With .Execute(cell)
            If .Count > 0 Then
                GetString = .Item(0).SubMatches(0)
            Else
                GetString = CVErr(xlErrNA)
            End If
        End With
    End With
End Function