如果相同的字符串包含特定文本,则从字符串复制文本

时间:2013-09-17 22:49:01

标签: excel excel-formula

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

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&s,然后是识别信息,一个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),""),"")

1 个答案:

答案 0 :(得分:0)

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

的延续

您可以将VBA功能用作工作表功能。

如果您将以下代码添加到我从previous answer添加的代码中:

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}"),"")

您可能需要查看参考部分here,了解有关正则表达式的更多有用信息。