从复杂字符串中提取数字（如果它在给定范围内）

我需要一个Excel公式（或VBA宏），该公式将允许我从字符串中提取值。字符串是单个单元格中由空格分隔的单词序列。我想要这个词（代表自行车的大小）是

• 47到60（或其他范围，可能是动态指定）之间的数字（可能是整数，但未指定），或者
• 字符串“ sm”，“ med”或“ lg”之一。

我希望在字符串中恰好有一个限定词，因此对它的任何合理的错误处理响应

• 没有限定词，或者
• 多个限定词

将是可以接受的。大小可以在字符串中的各个位置。例子：

Cervelo车队P2 105 5800 56 '15                         数 56 是所希望的结果 
Cervelo车队P2 105 54 6000 '15                         数 54 是所希望的结果 
Cervelo车队P3 105 5800 60 '15                         数 60 是所希望的结果 
Cervelo车队P2 105 5800 SM '15                         的字符串 sm 是期望的结果

我只对整个单词感兴趣，因此58（“ 5800”的子字符串）不符合条件。

现在，我要剥离'15并提取最后两位数字。但是，仅当自行车尺寸是倒数第二个值时，此方法才有效。但是，如上所述，在某些情况下，大小位于字符串中的其他位置。

如何在Excel中使用公式或VBA宏执行此操作？

我使用VBA提出了一个解决方案：

Public Function BikeSize(MinSize As Integer, MaxSize As Integer, datainput As String)
    Dim dataoutput() As Variant
    ReDim dataoutput(0)
    BikeSize = 0
    datasplitted = Split(datainput, " ")
    arraysize = UBound(datasplitted)
    j = 1
    For i = 0 To arraysize
        m = datasplitted(i)
        If m >= MinSize And m <= MaxSize Then
            ReDim Preserve dataoutput(j)
            dataoutput(j) = m
            j = j + 1
        End If
        If m = "sm" Or m = "med" Or m = "lg" Then
            ReDim Preserve dataoutput(j)
            dataoutput(j) = m
            j = j + 1
        End If
    Next i
    totalresults = UBound(dataoutput)
    Select Case totalresults
        Case 0
            BikeSize = 0
        Case 1
            BikeSize = dataoutput(totalresults)
        Case Else
            For i = 1 To totalresults
                wrongresult = wrongresult & dataoutput(i) & " - "
            Next i
            BikeSize = wrongresult
    End Select
End Function

您必须打开Macros / Visual Basic，转到“模块_>添加模块”，然后将代码粘贴到右侧（另请参阅如何在MS Office中添加VBA？）。

然后，如果您的字符串位于单元格A1上，则最小值位于C1上，最大值位于D1上，然后在B1上，您只需放入=BikeSize(C1,D1,A1)即可得到结果。

如果字符串没有匹配的数字，则输出零0。

如果字符串具有多个匹配号，则输出所有匹配项，并用破折号分隔。

它还可以识别sm，med和lg。