excel - 如何提取术语excel vba后的数字序列/字符

Question

我正在尝试提取文本中术语后的确切序列，并仅返回数字。

我需要返回整个序列，其中包含数字和数字之间的字符。

例如:

我正在使用此 vba 代码:

Function ExtraiSeq(rng As Range)
    Dim i As Integer, str As String, CharPos As Long
    str = rng.Value
    CharPos = InStr(1, str, "SEQ", vbTextCompare) + 2
    If CharPos > 2 Then
        For i = CharPos To Len(rng)
            Select Case Asc(Mid(rng.Value, i, 1))
            Case 48 To 57
                ExtraiSeq = Trim(ExtraiSeq & Mid(rng.Value, i, 1))
            End Select
        Next i
    Else: ExtraiSeq = ""
    End If
End Function

Answer 1

尝试，

Option Explicit

Function justDigits(str As String)
    Dim i As Long

    i = InStr(1, str, "seq ", vbTextCompare)

    If CBool(i) Then
        For i = i + 4 To Len(str)
            Select Case Asc(Mid(str, i, 1))
                Case 46 To 57
                    justDigits = justDigits & Mid(str, i, 1)
                Case else
                    Exit For
            End Select
        Next i
    End If
End Function