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

Question

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

Text;#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

这是约翰科尔曼建议的方法:

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