字母款号提取问题

zsxiong89

我想提取黑色字的款号.下面就是例如字样:{:soso_e150:}求助啊个位大神
提取.zip (14.44 KB, 下载次数: 39)

2013-11-15 11:26 上传

点击文件名下载附件

yangyangzhifeng

试试看

1. Sub test()
   
2.     Dim ar, reg, i&
   
3.     Set reg = CreateObject("vbscript.regexp")
   
4.     ar = Range(Range("a1").CurrentRegion, "g1")
   
5.     With reg
   
6.         For i = 2 To UBound(ar)
   
7.             .Pattern = "[A-Z]*\d+"
   
8.             ar(i, 2) = .Execute(ar(i, 1))(0)
   
9.             .Pattern = "颜色分类：(.+);尺码：(.+)"
   
10.             ar(i, 6) = .Execute(ar(i, 5))(0).submatches(0)
    
11.             ar(i, 7) = .Execute(ar(i, 5))(0).submatches(1)
    
12.         Next
    
13.     End With
    
14.     Range("a1").Resize(UBound(ar), UBound(ar, 2)) = ar
    
15. End Sub
    

复制代码

jsxjd

F2数组公式，下拉：

1. =TRIM(MID(SUBSTITUTE(SUBSTITUTE(ASC(E2),":",REPT(" ",100)),";",REPT(" ",100)),101,100))

复制代码

G2数组公式，下拉：

1. =TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(ASC(E2),":",REPT(" ",100)),";",REPT(" ",100)),100))

复制代码

小花鹿

不会正则真是麻烦：
Sub test()
Dim ar, br, i&, j&, s
ar = Range("a1:e" & [a65536].End(3).Row)
br = ar
For i = 2 To UBound(ar)
    For j = 1 To Len(ar(i, 1))
        If Asc(Mid(ar(i, 1), j, 1)) < 0 Then
            Mid(ar(i, 1), j, 1) = " "
        End If
    Next j
    s = Split(ar(i, 1), " ")
    For j = 0 To UBound(s)
        If IsNumeric(Right(s(j), 1)) Then
            ar(i - 1, 1) = s(j)
            Exit For
        End If
    Next j
    br(i - 1, 1) = Split(Split(ar(i, 5), ";")(0), "：")(1)
    br(i - 1, 2) = Split(Split(ar(i, 5), ";")(1), "：")(1)
Next i
[b2].Resize(i - 2) = ar
[f2].Resize(i - 2, 2) = br
End Sub

zsxiong89

yangyangzhifeng 发表于 2013-11-15 11:59
试试看

这个很好.谢谢帮助

zsxiong89

小花鹿 发表于 2013-11-15 12:51
不会正则真是麻烦：
Sub test()
Dim ar, br, i&, j&, s

这个很好.谢谢帮助

zsxiong89

jsxjd 发表于 2013-11-15 12:15
F2数组公式，下拉：G2数组公式，下拉：

这个我不会.但谢谢你!