如何提取订单号

wintryring

我的记帐摘要栏上最后都有个数字1开头的订单，但摘要文字有多有少，在这种情况有可能把订单号提取出来吗？

laowuwyx

1. =-LOOKUP(,-RIGHT(A2,ROW($1:$9)))

复制代码

规律性太差，只能提取绝大部分。

wintryring

谢谢你，这样也好，至少也能解决大部分的问题。剩下的也只能手工调整了，提取不到订单号我的帐就很难对。感谢帮忙。

tony@cq

用“快速填充”功能，Excel2013版以上都有吧，我是2016版的。

鱼333

=RIGHT(A2,6)也只能提取大部分，个别的无法提取。数据不规范。

活在理想的世界

1. Sub d()
   
2. Dim r, M, arr()
   
3. Set r = CreateObject("VBScript.RegExp")
   
4. r.Global = 1: r.Pattern = "1\d{5}"
   
5. arr = Sheet1.Range("a1").CurrentRegion
   
6. For i = 2 To UBound(arr)
   
7.     Set M = r.Execute(arr(i, 1))
   
8.     If M.Count > 0 Then arr(i, 2) = M.Item(0)
   
9. Next
   
10. Sheet1.Range("a1").CurrentRegion = arr
    
11. End Sub

复制代码