Excel UDF用于捕获字符内的数字

Question

我在单元格A1中有一个可变文本字段，其中包含以下内容：

文字; #Number; #Text; #Number

• 该格式可以重复，但是模式始终为Text; #Number。
• 数字范围从1位数到n位数（上限7）

例：

原始值

MyName;#123;#YourName;#3456;#HisName;#78

要求值：

123, 3456, 78

根据我的理解，该字段对于excel公式而言太可变了。

我尝试使用regexp，但是在编码方面我还是一个初学者。 如果您可以使用一些解释性文字来分解代码，将不胜感激。

我尝试了下面的一些建议，它们运行良好。 还有一个问题。

现在，我可以从文本中拆分数字了，有什么方法可以利用下面的代码并添加另一层，我们将这些数字拆分为x个单元格。

例如：一旦运行该函数，如果在同一单元格中获得1234、567，则该函数会将1234放入单元格B2，将567放入单元格C2。 这将继续更新同一行中的所有单元格，直到字符串用尽了从该函数检索到的所有数字为止。

谢谢

Answer 1

这是John Coleman建议的方法：

Public Function GetTheNumbers(st As String) As String
    ary = Split(st, ";#")
    GetTheNumbers = ""

    For Each a In ary
        If IsNumeric(a) Then
            If GetTheNumbers = "" Then
                GetTheNumbers = a
            Else
                GetTheNumbers = GetTheNumbers & ", " & a
            End If
        End If
    Next a
End Function

Answer 2

如果模式是固定的，并且数字的位置永远不变，则可以假定数字将位于字符串的偶数位置。 这意味着在源字符串拆分的数组结果中，可以使用结果数组的奇数索引。 例如，在此字符串“文本;＃ 数量 ; #Text;＃ 号码 ”数组索引1,3将是数字（“文本（0）;＃ 号（1）; #Text（2）;＃ 号（3） ”）。 我认为，如果模式确实是固定的，则此方法更容易使用，也更安全，因为它避免了验证数据类型的需要。

Public Function GetNums(src As String) As String
    Dim arr
    Dim i As Integer
    Dim result As String
    arr = Split(src, ";#") ' Split the string to an array.
    result = ""
    For i = 1 To UBound(arr) Step 2 ' Loop through the array, starting with the second item, and skipping one item (using Step 2).
        result = result & arr(i) & ", "
    Next
    If Len(result) > 2 Then
        GetNums = Left(result, Len(result) - 2) ' Remove the extra ", " at the end of the the result string.
    Else
        GetNums = ""
    End If
End Function

Answer 3

^{数字可以从1位数到n位数不等（ 限制为7 ）}

其他响应似乎都没有考虑到提供的参数，因此我将一个真正的正则表达式解决方案合并在一起。

Option Explicit
Option Base 0    '<~~this is the default but I've included it because it has to be 0

Function numsOnly(str As String, _
                  Optional delim As String = ", ")
    Dim n As Long, nums() As Variant
    Static rgx As Object, cmat As Object

    'with rgx as static, it only has to be created once; beneficial when filling a long column with this UDF
    If rgx Is Nothing Then
        Set rgx = CreateObject("VBScript.RegExp")
    End If
    numsOnly = vbNullString

    With rgx
        .Global = True
        .MultiLine = False
        .Pattern = "[0-9]{1,7}"
        If .Test(str) Then
            Set cmat = .Execute(str)
            'resize the nums array to accept the matches
            ReDim nums(cmat.Count - 1)
            'populate the nums array with the matches
            For n = LBound(nums) To UBound(nums)
                nums(n) = cmat.Item(n)
            Next n
            'convert the nums array to a delimited string
            numsOnly = Join(nums, delim)
        End If
    End With
End Function

Answer 4

使用Replace表达式选项

Sub Test()
Debug.Print StrOut("MyName;#123;#YourName;#3456;#HisName;#78")
End Sub

功能

Option Explicit
Function StrOut(strIn As String) As String
Dim objRegex As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
    .Pattern = "(^|.+?)(\d{1,7})"
    .Global = True
    If .Test(strIn) Then
        StrOut = .Replace(strIn, "$2, ")
        StrOut = Left$(StrOut, Len(StrOut) - 2)
    Else
        StrOut = "Nothing"
    End If
End With
End Function