vba遍历字符串_Excel VBA循环遍历一串数字,直到找到一个字母

我在一个单元格中有一个字符串,让我们说“客户参考：F123456PassPlus”.

字符串可能在数字前没有字母,数字中可能有符号,字母和数字之间可能有空格.

我只需要提取数字作为变量.我有代码来做,但它不知道何时停止循环字符串.它应该在有数字或符号以外的东西时停止,而是继续进行.

IsNumber = 1

ref = ""

If branch = "" Then

e = b

Else

e = b + 1

End If

f = 1

While IsNumber = 1

For intpos = 1 To 15

ref = Mid(x, e, f)

f = f + 1

Select Case Asc(ref)

Case 45 To 57

IsNumber = 1

Case Else

IsNumber = 0

Exit For

End Select

Next

IsNumber = 0

Wend

之前已经定义了没有定义的任何变量字母,e告诉代码从哪里开始复制,x是包含字符串的单元格.现在,一切正常,它从数字开始并复制它们并将它们构建成一个越来越大的字符串,但它只会在intpos达到15时停止.