[已解决]怎么提取出货号和尺码

哦哈哈

请问怎么提取出货号和尺码？谢谢

最佳答案

月排行榜 / 总排行榜

baksy

2014-1-20 16:58

货号
B2 =MID(A2,SEARCH("A",A2)+1,9)
尺码
C2 =IF(LEN(--RIGHT(A2,3))=2,RIGHT(A2,2),RIGHT(A2,4))
      或 =RIGHT(A2,IF(LEN(--RIGHT(A2,3))=2,2,4))

跳转到最佳答案楼层

风林火山

用正则提取

baksy

货号
B2 =MID(A2,SEARCH("A",A2)+1,9)
尺码
C2 =IF(LEN(--RIGHT(A2,3))=2,RIGHT(A2,2),RIGHT(A2,4))
      或 =RIGHT(A2,IF(LEN(--RIGHT(A2,3))=2,2,4))

tgydslr

B1

1. =MID(A2,FIND("A",A2)+1,8)

复制代码

下拉
c1

1. =MID(RIGHT(A2,5),FIND(" ",RIGHT(A2,5))+1,5)

复制代码

下拉

风林火山

Sub test()
    Dim arr, brr, k%, i%, n%
    arr = Range("a1:c" & Cells(Rows.Count, 1).End(3).Row)
    brr = Array("[A-Z]{3}\d{3}-\d", "\d+\.?\d?")
    n = 1
    With CreateObject("vbscript.regexp")
        .Global = True
        For i = 0 To 1
            .Pattern = brr(i)
            For k = 2 To UBound(arr)
                For Each m In .Execute(arr(k, 1))
                    arr(k, n + 1) = m
                Next m
            Next k
            n = n + 1
        Next i
    End With
    arr(1, 2) = "货号": arr(1, 3) = "尺码"
    Sheet2.Cells.ClearContents
    Sheet2.Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    Sheet2.Select
End Sub

哦哈哈

baksy 发表于 2014-1-20 16:58
货号
B2 =MID(A2,SEARCH("A",A2)+1,9)
尺码

尺码
C2 =IF(LEN(--RIGHT(A2,3))=2,RIGHT(A2,2),RIGHT(A2,4))
这个我也是这样设置的公式，可是不好使呀，LEN(--RIGHT(A2,3))=2这个right前的--什么意思？谢谢

哦哈哈

风林火山 发表于 2014-1-20 19:04
Sub test()
    Dim arr, brr, k%, i%, n%
    arr = Range("a1:c" & Cells(Rows.Count, 1).End(3).Row)
...

亲 你这个好牛呀{:06:}

baksy

哦哈哈 发表于 2014-1-22 10:57
尺码
C2 =IF(LEN(--RIGHT(A2,3))=2,RIGHT(A2,2),RIGHT(A2,4))
这个我也是这样设置的公式，可是不好使 ...

两个“-”号是文本转数值的，以便判断最后三位带不带空格，
对你这个基础数据，公式应该没问题，
请把出错的附件传一下。

哦哈哈

baksy 发表于 2014-1-22 11:05
两个“-”号是文本转数值的，以便判断最后三位带不带空格，
对你这个基础数据，公式应该没问题，
请把出 ...

我设的公式right前没加--，所以有小数点的都不对，你给的公式很好用，谢谢!

雪舞子

风林火山 发表于 2014-1-20 19:04
Sub test()
    Dim arr, brr, k%, i%, n%
    arr = Range("a1:c" & Cells(Rows.Count, 1).End(3).Row)
...

借用风林的代码优化一下

1. Sub test()
   
2.     Dim arr, k%, i%
   
3.     arr = Range("a1:c" & Cells(Rows.Count, 1).End(3).Row)
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "([B-Z]+\d.+? ).+?(\d.+)"
   
7.         For k = 2 To UBound(arr)
   
8.             For Each m In .Execute(arr(k, 1))
   
9.                 arr(k, 2) = .Replace(m.Value, "$1")
   
10.                 arr(k, 3) = .Replace(m.Value, "$2")
    
11.             Next m
    
12.         Next k
    
13.     End With
    
14.     arr(1, 2) = "货号": arr(1, 3) = "尺码"
    
15.     Sheet2.Cells.ClearContents
    
16.     Sheet2.Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17.     Sheet2.Select
    
18. End Sub

复制代码