Excel從文本中解析出一個數字列表（從一個單元格中的幾個數字）

Question

我需要從excel中的文本中解析出一個跟蹤數字列表。字符方面的位置並不總是相同的。一個例子：

Location ID 987 

Your package is arriving 01/01/2015 

Fruit Snacks 706970554628 
<http://www.fedex. com/Tracking?tracknumbers=706970554628> 

Olive Oil 709970554631 
<http://www.fedex. com/Tracking?tracknumbers=709970554631> 

Sign 706970594642 
<http://www.fedex .com/Tracking?tracknumbers=706970594642> 

Thank you for shopping with us! 

塊的文本位於一個單元格。我想的結果，或者是3個獨立的列或行看起來像這樣：

706970554628，709970554631，706970594642

不會有永遠是相同數量的查詢號碼。一個細胞可能有六個而另一個細胞有一個。

謝謝你的幫助！

Answer 1

我想你會需要一些VBA來做到這一點。這不會是超級簡單的東西。加里的學生有一個很好的例子，從一大串字符串中獲取數字。如果您需要更具體的場景，您需要逐字解析字符串，並在URL中遇到跟蹤編號時找出它。

像下面這樣就可以了：

Function getTrackingNumber(bigMessage As String, numberPosition As Integer) As String 
    Dim intStrPos As Integer 
    Dim arrTrackNumbers() As Variant 

    'create a variable to hold characters we'll use to identify words 
    Dim strWorkSeparators As String 
    strWordSeparators = "()=/<>?. " & vbCrLf 


    'iterate through each character in the big message 
    For intStrPos = 1 To Len(bigMessage) 

     'Identify distinct words 
     If InStr(1, strWordSeparators, Mid(bigMessage, intStrPos, 1)) > 1 Then 'we found the start of a new word 

      'if foundTrackNumber is true, then this must be a tracking number. Add it to the array of tracking numbers 
      If foundTrackNumber Then 
       'keep track of how many we've found 
       trackNumbersFound = trackNumbersFound + 1 

       'redim the array in which we are holding the track numbers 
       ReDim Preserve arrTrackNumbers(0 To trackNumbersFound - 1) 

       'add the track 
       arrTrackNumbers(trackNumbersFound - 1) = strword 
      End If 

      'Check to see if the word that we just grabbed is "tracknumber" 
      If strword = "tracknumbers" Then 
       foundTrackNumber = True 
      Else 
       foundTrackNumber = False 
      End If 

      'set this back to nothing 
      strword = "" 
     Else 
      strword = strword + Mid(bigMessage, intStrPos, 1) 
     End If 
    Next intStrPos 

    'return the requested tracking number if it exists. 
    If numberPosition > UBound(arrTrackNumbers) + 1 Then 
     getTrackingNumber = "" 
    Else 
     getTrackingNumber = arrTrackNumbers(numberPosition - 1) 
    End If 

End Function 

這是一個UDF，這樣你就可以在工作表中使用它作爲一個公式：

=getTrackingNumber(A1, 1) 

將返回第一跟蹤它在單元格A1中遇到的號碼。因此，公式

=getTrackingNumber(A1, 2) 

將返回第二個跟蹤號碼，依此類推。

這並不是一個快速的功能，儘管它是按字符分析大字符串，並且隨着時間做出決定。如果你能把Gary的學生的答案變成可行的話，那麼對於大數據來說，它會更快，更少佔用CPU資源。但是，如果你得到的結果太多，需要像外科醫生那樣去做，那麼這應該讓你進入球場。

Answer 2

如果跟蹤始終是一個位數，然後選擇單元運行來看，這種短期的宏：

Sub parser117() 
    Dim s As String, ary, i As Long 
    With ActiveCell 
     ary = Split(Replace(Replace(.Text, Chr(10), " "), Chr(13), " "), " ") 
     i = 1 
     For Each a In ary 
      If Len(a) = 12 And IsNumeric(a) Then 
       .Offset(0, i).Value = a 
       i = i + 1 
      End If 
     Next a 
    End With 
End Sub 

​​3210