怎么把B列的单号提取出来

我会觉得第一张图比较清楚明了，有人觉得看着不舒服可以看下第二个图片

第一个帖子图片似乎打不开，重新开了个贴

帮帮忙 大神们

感激不尽

Option Explicit
Sub abc()
　Dim a, i, j, k, kk, m
　a = Range("b2:b" & [b2].End(xlDown).Row).Value
　ReDim b(1 To 10 ^ 4, 1 To 1) As String
　For i = 1 To UBound(a)
　　a(i, 1) = a(i, 1) & "?"
　　For j = 1 To Len(a(i, 1))
　　　If IsNumeric(Mid(a(i, 1), j, 1)) Then
　　　　For k = j + 1 To Len(a(i, 1))
　　　　　If Not IsNumeric(Mid(a(i, 1), k, 1)) Then
　　　　　　If (k - j) Mod 14 = 0 Then
　　　　　　　For kk = j To k - 1 Step 14
　　　　　　　　m = m + 1
　　　　　　　　b(m, 1) = Mid(a(i, 1), kk, 14)
　　　　　　　Next
　　　　　　End If
　　　　　　j = k: Exit For
　　　　　End If
　　　　Next
　　　End If
　　Next
　Next
　If m > 0 Then [a2].Resize(m) = b
End Sub