提取不规律字段

lg747699

单元格存在各种不规则字段，但需要提取存在规律10位图号，具体参考附件。

XIYANGYU

你这个用头两位去判断好做，=IFERROR(MID(A2,IF(ISNUMBER(FIND("CJ",A2)),FIND("CJ",A2),FIND("MC",A2)),10),"")

liulang0808

这个用正则表达式比较好
不过下面的代码不是正则表达式的方法
Sub 按钮1_Click()
    arr = [a1].CurrentRegion
    For j = 1 To UBound(arr)
        If InStr(arr(j, 1), "M") + InStr(arr(j, 1), "C") > 0 Then
            a = 0
            str1 = ""
            For i = 1 To Len(arr(j, 1))
                x = Mid(arr(j, 1), i, 1)
                If InStr("MC", x) > 0 Then
                    If a = 0 Then
                        str1 = x
                    Else
                        str1 = str1 & x
                    End If
                    a = 1
                Else
                    If a = 1 Then
                        If x Like "[0-9A-z]" Then
                            str1 = str1 & x
                        Else
                            If Len(str1) = 10 Then
                                Exit For
                            Else
                                a = 0
                                str1 = ""
                            End If
                        End If
                    End If
                End If
            Next i
            arr(j, 3) = str1
        End If
    Next j
    [a1].CurrentRegion = arr
End Sub

liulang0808

附件内容供参考哦。。。。

看见星光

1. =MID(A2,MIN(IF(LENB(MID(A2,ROW($1:$99),10))=LEN(MID(A2,ROW($1:$99),10))*(MID(A2,ROW($1:$99),1)={"c","m"}),ROW($1:$99))),10)

复制代码

函数按你说的规则算，c或m开头的。
不规则提取字段.rar (8.7 KB, 下载次数: 7)

2018-7-4 15:43 上传

点击文件名下载附件

苏小亓

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     arr(1, 1) = "提取图号"
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "[CM]\w+\d{4,}"
   
7.         For i = 2 To UBound(arr)
   
8.             x = arr(i, 1)
   
9.             If .test(x) Then arr(i, 1) = .Execute(x)(0) Else arr(i, 1) = ""
   
10.         Next
    
11.     End With
    
12.     [d1].Resize(UBound(arr)) = arr
    
13. End Sub
    

复制代码

LMY123

正则表达式

tcdatongye

pattern="[cm][a-z\d]{9}(?![a-z\d])"

Chip_Kenny

苏小亓 发表于 2018-7-4 15:44

這RegexString好方便, 不用寫代碼, 請問是那一個版本的Excel