利用VBA中的VBA / Custom函数在excel中提取特定文本后的数字

在Excel中提取特定文本后的数字可以使用VBA / Custom函数来实现。VBA是Visual Basic for Applications的缩写，是一种用于编写宏和自定义函数的编程语言。

下面是一个示例的VBA / Custom函数，可以用于提取特定文本后的数字：

Function ExtractNumber(text As String) As Double
    Dim i As Integer
    Dim result As String
    Dim isNumber As Boolean
    
    isNumber = False
    result = ""
    
    For i = 1 To Len(text)
        If IsNumeric(Mid(text, i, 1)) Then
            result = result & Mid(text, i, 1)
            isNumber = True
        ElseIf isNumber Then
            Exit For
        End If
    Next i
    
    If result <> "" Then
        ExtractNumber = CDbl(result)
    Else
        ExtractNumber = 0
    End If
End Function

这个函数接受一个字符串参数text，然后从字符串中提取数字部分并返回。函数会遍历字符串的每个字符，如果字符是数字，则将其添加到结果字符串中，直到遇到非数字字符为止。最后，将结果字符串转换为数字并返回。

要在Excel中使用这个函数，可以按照以下步骤操作：