如何截取这种字符串中的数字

angelew

请教各位大虾，如何提取出这些数字
如： BGJ5060GQXA 中的5060
和   AY5200GFL 中的5200

Henry D. Sy

这样也可以
Public Function gStr(strFlds As String) As Long
    Dim i As Integer
    For i = 1 To Len(strFlds)
        If IsNumeric(Mid(strFlds, i, 1)) Then
            Exit For
        End If
    Next
    gStr = Val(Mid(strFlds, i))
End Function

Henry D. Sy

可以判断是不是数字的位置

chenyingfengsx

看看

huangqinyong

俺试试

wanshan

给你一个自定义函数：
Public Function cue(strmessage As String)  '提取数字部分
   
    Dim i As Integer

      For i = 1 To Len(strmessage)
        If Asc(Mid(strmessage, i, 1)) >= 48 And Asc(Mid(strmessage, i, 1)) <= 57 Then
          cue = cue & Mid(strmessage, i, 1)
        End If
      Next

End Function

angelew

但是数字前面还有字母啊，不能确定第几位才是数字。不好意思，我是菜鸟：）

hi-wzj

val函数