如何从英文丛中提取某些数据，如图

不要沉了，求大神救命

'如果存在仅匹配一次
Option Explicit
Sub abc()
　Dim i, j, a, t
　a = Range("c2:c" & Cells(Rows.Count, "c").End(xlUp).Row).Value
　ReDim b(1 To UBound(a), 1 To 1) As String
　For i = 1 To UBound(a)
　　t = Split(a(i, 1))
　　For j = 0 To UBound(t)
　　　If IsNumeric(Left(t(j), 1)) Then b(i, 1) = t(j): Exit For
　　Next
　Next
　[b2].Resize(UBound(b)) = b
End Sub

粗看貌似16进制7位数？