[已解决]求助！！！！！！

zhangrongmei

配对 模别 7AL16AL10Q6AK AL 15I5AQ9Q15Q I 7A7B7A7D7 A 17AA7B7A7D8 AA 我想模别用一个公式拉一下就OK，不然要好几个公式，请求支援，谢谢！！

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2014-1-7 16:39

用正则表达式写了一个，请测试：
提取模别.rar (13.45 KB, 下载次数: 3)

2014-1-7 16:39 上传

点击文件名下载附件

1. Sub 提取()
   
2. Dim arr, brr(1 To 100000, 1 To 1) As String, i&, j&, k&
   
3. Dim reg As Object, mat As Object, mats As Object
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. arr = Range("b3:b" & Range("b" & Rows.Count).End(3).Row)
   
6. For i = 1 To UBound(arr)
   
7.     With reg
   
8.         .Global = False
   
9.         .ignorecase = False
   
10.         .Pattern = "[A-Z]+(?=\d)"
    
11.         Set mats = .Execute(arr(i, 1))
    
12.         For Each mat In mats
    
13.             If Not mat Is Nothing Then
    
14.                k = k + 1
    
15.                brr(k, 1) = mat
    
16.             End If
    
17.         Next mat
    
18.     End With
    
19.     Set mat = Nothing
    
20.     Set mats = Nothing
    
21. Next i
    
22. Range("c3").Resize(k + 10, 1) = ""
    
23. Range("c3").Resize(k, 1) = brr
    
24. End Sub
    

复制代码

跳转到最佳答案楼层

CheryBTL

先凑一个，有空再简化吧：

1. =LEFT(MID(B3,MATCH(0=0,MID(B3,COLUMN(A:Z),1)>"9",),99),MIN(FIND(ROW($1:$10)-1,MID(B3,MATCH(0=0,MID(B3,COLUMN(A:Z),1)>"9",),99)&1/17))-1)

复制代码

zhangrongmei

太复杂了，有没简单一点的！！谢谢！

yyyydddd8888

用正则表达式写了一个，请测试：
提取模别.rar (13.45 KB, 下载次数: 3)

2014-1-7 16:39 上传

点击文件名下载附件

1. Sub 提取()
   
2. Dim arr, brr(1 To 100000, 1 To 1) As String, i&, j&, k&
   
3. Dim reg As Object, mat As Object, mats As Object
   
4. Set reg = CreateObject("vbscript.regexp")
   
5. arr = Range("b3:b" & Range("b" & Rows.Count).End(3).Row)
   
6. For i = 1 To UBound(arr)
   
7.     With reg
   
8.         .Global = False
   
9.         .ignorecase = False
   
10.         .Pattern = "[A-Z]+(?=\d)"
    
11.         Set mats = .Execute(arr(i, 1))
    
12.         For Each mat In mats
    
13.             If Not mat Is Nothing Then
    
14.                k = k + 1
    
15.                brr(k, 1) = mat
    
16.             End If
    
17.         Next mat
    
18.     End With
    
19.     Set mat = Nothing
    
20.     Set mats = Nothing
    
21. Next i
    
22. Range("c3").Resize(k + 10, 1) = ""
    
23. Range("c3").Resize(k, 1) = brr
    
24. End Sub
    

复制代码

zhangrongmei

对于我们这种菜鸟来说就是一个难题，有没更简的！！

tgydslr

C3

1. =MID(B3,MIN(IF(NOT(ISNUMBER(--MID(B3,ROW($1:$15),1))),ROW($1:$15))),FIND("0",SUM(NOT(ISNUMBER(--MID(B3,ROW($1:$15),1)))*10^(15-ROW($1:$15))))-1)

复制代码

三键下拉