小编Pyt*_*hon的帖子

我写了一个sub,它从单元格A1中的字符串中提取所有数字,并将结果粘贴到单元格A2中.这循环遍历重复该过程的每一行,直到包含字符串的所有单元格都已完成.

但是,我想只提取连续的数字(超过1位数)

例如:从这个字符串:string-pattern-7 --- 62378250-stringpattern.html我只想提取数字62378250而不是前面的7.

我应该如何改变我的代码才能实现这一目标？

Option Explicit

Function onlyDigits(s As String) As String
    ' Variables needed (remember to use "option explicit").   '
    Dim retval As String    ' This is the return string.      '
    Dim i As Integer        ' Counter for character position. '

    ' Initialise return string to empty                       '
    retval = ""

    ' For every character in input string, copy digits to     '
    '   return string.                                        '
    For i = 1 To …