0

我在一个单元格中有类似于以下字符串的内容；

Thingy AA-03 1 5a5a5555555aaa bbbb000001111111 02/05/2013 ONE 1 EA HANDLE 0.000 0.000 0.000 0.0 0.0 0.000 0.0 F2AA 0.0000000

我想返回 bb000001111111，但只有当单元格中某处包含 AA-03 时，所需返回的位置和查找是否是流动的。

返回值会改变，但格式始终相同，两个字母，5 个 0，然后是识别信息，一个 6-8 位数字，没有空格。bb000001234567

这可能只用一个公式吗？

谢谢。

我非常接近；

=IF(ISERROR(FIND("HA-03",IFERROR(MID(Data!I47,FIND("F2AA00000",Data!I46),7),Data!I46))),IFERROR(MID(Data!I46,FIND("F2AA00000",Data!I46),16),""),"")
4

1 回答 1

0

这个问题似乎是Find specific text in a string ...的延续

您可以将 VBA 函数用作工作表函数。

如果您将以下代码添加到您从我之前的答案中添加的代码中：

Public Function RegExMatch(strInput As String, strRegEx As String, Optional MatchNo As Long = 0, Optional FirstIDX As Long, Optional Lgth As Long, Optional bIgnoreCase As Boolean = True, Optional bMultiLine As Boolean = False) As String
    Dim RegExp As VBScript_RegExp_55.RegExp, Matches As VBScript_RegExp_55.MatchCollection
    Set RegExp = New VBScript_RegExp_55.RegExp
    With RegExp
        .Global = True
        .MultiLine = bMultiLine
        .IgnoreCase = bIgnoreCase
        .Pattern = strRegEx
    End With
    If RegExp.test(strInput) Then
        Set Matches = RegExp.Execute(strInput)
        If MatchNo > Matches.Count - 1 Then
            RegExMatch = ""
        Else
            RegExMatch = Matches(MatchNo).value
            FirstIDX = Matches(MatchNo).FirstIndex
            Lgth = Matches(MatchNo).Length
        End If
    Else
        RegExMatch = ""
    End If
    Set RegExp = Nothing
End Function

...然后你可以有一个公式：

=IF(RegEx(A1,"[A-Z]{2}-\d\d"), RegExMatch(A1,"[A-Z]{2}0{5}\d{6,8}"),"")

您可能想查看此处的参考部分，以获取有关正则表达式的更多有用信息。

于 2013-09-18T00:44:18.407 回答