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

使用VBA中的VBA/自定义函数在excel中的特定文本后提取数字,vba,excel,Vba,Excel,我在单元格中有一个文本,如下所示: 案例1:ABC A/C#123 案例2:854ABC A/C#854 不过,我只想在字符“A/C”后提取数字 如果你们能推荐一个带有自定义函数的代码,那就太好了,这样我就可以像使用默认excel函数一样直接使用该代码。嘿,谢谢,但我只想提取“a/C”后面的数字。例如,如果我有“ABC A/C#123”,我只需要结果为“123”。 Function GetString(cell) With CreateObject("VBScript.RegExp")

我在单元格中有一个文本,如下所示:

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

不过,我只想在字符“A/C”后提取数字


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

嘿,谢谢,但我只想提取“a/C”后面的数字。例如,如果我有“ABC A/C#123”,我只需要结果为“123”。
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