Excel - 如何返回大段文本中长度在 7-10 个字符之间的第一个数字字符串？（最好仅使用公式）

Question 1

如果您的数字串始终是字符串中的第一组数字，则可以使用以下公式。这是一个数组公式，通过按住ctrl+shift并点击来输入enter：

=MAX(IFERROR(--MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),{7,8,9,10}),0))

如果在您想要提取的数字子串之前可能存在更短或更长的数字子串，那么我会使用下面的 UDF。它利用正则表达式来查找长度恰好为 7-10 位的第一个数字字符串。由于它返回的是字符串，因此它应该保留所有前导零。

在如下公式中使用它：

=FirstDigits(A1)

将以下代码复制到常规模块中：

Option Explicit
Function FirstDigits(S As String) As String
    Dim RE As Object, MC As Object
    Const sPat As String = "\b\d{7,10}\b"

Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .Pattern = sPat
    If .test(S) Then
        Set MC = RE.Execute(S)
        FirstDigits = MC(0)
    Else
        FirstDigits = "No digit string 7-10 digits long"
    End If
End With

End Function

Answer

如果您的数字串始终是字符串中的第一组数字，则可以使用以下公式。这是一个数组公式，通过按住ctrl+shift并点击来输入enter：

=MAX(IFERROR(--MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),{7,8,9,10}),0))

如果在您想要提取的数字子串之前可能存在更短或更长的数字子串，那么我会使用下面的 UDF。它利用正则表达式来查找长度恰好为 7-10 位的第一个数字字符串。由于它返回的是字符串，因此它应该保留所有前导零。

在如下公式中使用它：

=FirstDigits(A1)

将以下代码复制到常规模块中：

Option Explicit
Function FirstDigits(S As String) As String
    Dim RE As Object, MC As Object
    Const sPat As String = "\b\d{7,10}\b"

Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .Pattern = sPat
    If .test(S) Then
        Set MC = RE.Execute(S)
        FirstDigits = MC(0)
    Else
        FirstDigits = "No digit string 7-10 digits long"
    End If
End With

End Function

Question 2

如果您收到符合您要求的“仅公式”答案，请忽略此答案。

这个小UDF（）将返回满足您要求的字符串中的第一个数字：

代码：

Public Function GetNumber(sIN As String) As Long
    Dim L As Long, i As Long
    Dim s As String

    s = sIN
    L = Len(s)
    For i = 1 To L
        ch = Mid(s, i, 1)
        If ch Like "[0-9]" Then
        Else
            Mid(s, i, 1) = " "
        End If
    Next i

    With Application.WorksheetFunction
        arr = Split(.Trim(s), " ")
    End With

    For Each a In arr
        If Len(a) > 6 And Len(a) < 11 Then
            GetNumber = CLng(a)
            Exit Function
        End If
    Next a
    GetNumber = 0
End Function

用户定义函数 (UDF) 非常容易安装和使用：

ALT-F11 打开 VBE 窗口
ALT-I ALT-M 打开新模块
粘贴内容并关闭 VBE 窗口

如果您保存工作簿，UDF 将随之保存。如果您使用的是 2003 之后的 Excel 版本，则必须将文件保存为 .xlsm 而不是 .xlsx

要删除 UDF：

调出如上所示的 VBE 窗口
清除代码
关闭 VBE 窗口

要从 Excel 使用 UDF：

=getnumber(A1)

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关 UDF 的详细信息，请参阅：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能使其工作！

Answer