用正则表达式获取关键词失败!

fan7310

颜色分类：1P+N 漏电开关;额定电流：25A
颜色分类：1P+N 漏电开关;额定电流：32A

用正则表达式获取关键词 1P+N 漏电开关 25A 这个三个词  
只能获取到1P+N 漏电开关 就是无法获取到 25A  只要加上 \d+A 或者[0-9]+A 就直接失效
([1-4]P\+?N?).([\u4e00-\u9fa5]+) 只能获取1P+N 漏电开关
([1-4]P\+?N?).([\u4e00-\u9fa5]+) (\d+A) 或者([1-4]P\+?N?).([\u4e00-\u9fa5]+) .([0-9]+A) 测试直接无法获取任何信息

edwin11891

没有附件，仅就示例：

1. =REGEXP(A20,{"([1-4]P\+?N?)","[一-龟]+(?=;)","\d+A"})

复制代码

松永

用VBA正则表达参与一下

quqiyuan

vba写一个，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Dim reg As Object, myString, Mats, Mat, subMat, NewStr
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.[a1].CurrentRegion
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .Pattern = "([\w\+]+) (\W+);\W+：(\w+)"
        .Global = True
        .IgnoreCase = True
        .MultiLine = True
    End With
    ReDim subMat(1 To 10000, 1 To 3)
    If IsArray(arr) Then
    For i = 1 To UBound(arr)
        If reg.test(arr(i, 1)) Then
            Set Mats = reg.Execute(arr(i, 1))
            Set Mat = Mats(0)
            n = n + 1
            For j = 0 To 2                                     'Mat.Submatches.Count - 1
                subMat(n, j + 1) = Mat.Submatches(j)
            Next
        End If
    Next
    Else
    If reg.test(arr) Then
            Set Mats = reg.Execute(arr)
            Set Mat = Mats(0)
            n = n + 1
            For j = 0 To 2                                     'Mat.Submatches.Count - 1
                subMat(n, j + 1) = Mat.Submatches(j)
            Next
        End If
    End If
    sht.[c1].Resize(n, 3) = subMat
    Beep
End Sub
   

wp231957

守候_CJ

示例公式

1. =REGEXEXTRACT(A1,"[： ]\K[^; ]+",1)

复制代码

效果

mengrs

=REGEXP(REGEXP(A1,"额定电流|颜色分类",2,),"[一-龟A-z0-9+]+")

xtmyd5156

=REGEXP(A1,"^.*类：|;.*：",2,"")