Question

EXCEL VBA 取出某一单元格里文本中的数字

文本格式"123G XXXXXXXX 12345678 (XXXXXX)"
"XXX"内容不固定
“123G”不固定重量，有时还有8位连续数字代表。（不需要）
"(XXXX)"内容不固定，"("可能被人使用"["、"<"、"/"、"{"或"（"分隔
"12345678"固定8位连续随机数
要求取出文本中的"12345678"的8位连续随机数
请使用VBA，谢谢各位大虾。
有时没有“（XXX）”的内容

Answer 1

见下，只看连续8个字符是否全为数字
Function MyGetValue(S As String) As Long
Dim I As Integer
Dim V
For I = 1 To Len(S) - 7
If Mid(S, I, 8) Like "########" Then
MyGetValue = Val(Mid(S, I, 8))
Exit Function
End If
Next
MyGetValue = -1
End Function