Excel VBA -转换位于特定子字符串之前的数字

Sub ConvertNumberBeforeSubstring()
    Dim originalString As String
    Dim substring As String
    Dim numberString As String
    Dim convertedNumber As Double
    
    ' 设置原始字符串和特定子字符串
    originalString = "abc123def"
    substring = "123"
    
    ' 查找特定子字符串的位置
    Dim position As Integer
    position = InStr(originalString, substring)
    
    ' 提取位于特定子字符串之前的数字字符串
    numberString = Left(originalString, position - 1)
    
    ' 转换数字字符串为数字
    convertedNumber = CDbl(numberString)
    
    ' 输出结果
    MsgBox "转换后的数字为: " & convertedNumber
End Sub