A列是单号,如何用VBA实现B列得到纯单号,C列得到单号意外的内容

任我逍遥

A列是单号,如何用VBA实现B列得到纯单号,C列得到单号意外的内容,实例如下,谢谢各位!! A列是单号,如何用VBA实现B列得到纯单号,C列得到单号意外的内容.zip (6.96 KB, 下载次数: 7)

2017-12-5 20:15 上传

点击文件名下载附件

小花鹿

这样的问题一般用正则......................................................................

任我逍遥

小花鹿 发表于 2017-12-5 20:22
这样的问题一般用正则......................................................................

懂行的,谢谢您

jsgj2023

1. Sub Adele()
   
2.     Dim Reg As Object, arr, brr(1 To 10000, 1 To 2)
   
3.     Set Reg = CreateObject("Vbscript.RegExp")
   
4.     With Reg
   
5.         .Global = True
   
6.         .Pattern = "(\d+){2}"
   
7.     End With
   
8.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
9.     For z = 1 To UBound(arr)
   
10.         Set Mat = Reg.Execute(arr(z, 1))
    
11.         k = k + 1
    
12.         brr(k, 1) = Mat(0)
    
13.         brr(k, 2) = Replace(arr(z, 1), Mat(0), "")
    
14.     Next z
    
15.     [b:b].NumberFormatLocal = "@"
    
16.     [B1].Resize(k, 2) = brr
    
17. End Sub

复制代码

jsgj2023

请见附件！！！

任我逍遥

jsgj2023 发表于 2017-12-5 21:00
请见附件！！！

太牛了，我可是想了很久，搜索了好多贴，还是没能解决，怎么到您这，这么快就解决了，人跟人的差距咋就这么大。太感谢您了

任我逍遥

jsgj2023 发表于 2017-12-5 21:00
请见附件！！！

假如只有一行内容的时候就会出错，不知道要怎样容错呢

jsgj2023

已修正，请见附件！！

任我逍遥

jsgj2023 发表于 2017-12-6 20:48
已修正，请见附件！！

谢谢，应用中发现有些单号前面还有数字，这样就会出错了，有办法容错么，这种情况下，比如内容是这样的“1x转16x显卡转接线  3片   中通468414938680”结果就是16了，而不是后面的单号，谢谢您

lsc900707

任我逍遥 发表于 2017-12-7 20:13
谢谢，应用中发现有些单号前面还有数字，这样就会出错了，有办法容错么，这种情况下，比如内容是这样的“ ...

所以你做附件的时候要把可能的情况都枚举出来，而不是想到什么问什么，挤牙膏似的。