提取手機號碼到其他單元格在Excel

Question

我有一些單元格A1，A2，A3，A4非結構化數據，並希望在不同的細胞中提取手機號碼，從單元格A1

--------------------------(A)-------------------------- 
(1) `ABCDEFG CFGHJKL 9810642882 9212451029 9818682274` 
(2) `ABCDERFT 9910077711 9811195125 9999966744` 
(3) `ADFRTYU.9810851029 9818218521 9811056189` 
(4) `ADFGT FTYUH 9873155802` 

結果：

 ----(A)--- ----(B)--- ----(C)--- 
(1) 9810642882 9212451029 9818682274 

Answer 1

對於式唯一的解決方案，在單元格B1和複製和向下：

=TRIM(MID(SUBSTITUTE(TRIM(MID($A1,MIN(FIND({1,2,3,4,5,6,7,8,9,0},$A1&1234567890)),999))," ",REPT(" ",999)),999*(COLUMN(A1)-1)+1,999)) 

Answer 2

您可以使用Excel中內置的「Text to Columns」功能來實現此功能。

突出顯示列A並轉到Data >> Text To Columns。選擇「分隔符」，然後選擇「空格」作爲分隔符。單擊完成，它將按空間拆分數據並將其寫出到相鄰的列。

---

對於VBA UDF可以使用超級方便SPLIT()字符串的方法將由分隔符分割字符串數組。然後，只需摘掉您需要的位置：

Public Function strtok(strIn As String, delim As String, token As Integer) As String 
    'Split the <strIn> by the <delim> outputting the string at position <token> 
    strtok = Split(strIn, delim)(token - 1)  
End Function 

要在工作表中使用此：

=strtok(A1," ", 1) 

當空間分割這將在您的A1值的第一個位置返回字符串。如果你把這個B1那麼你可以使用Column()，使之更加動態的，所以你可以拖動公式向右和向下：

=strtok($A1," ",Column()-1) 

---

這裏是一個編輯上述funcion將由分裂DELIM，然後從分割重建只用數字值的數組，然後輸出從數字陣列請求令牌：

Public Function strtok(strIn As String, delim As String, token As Integer) As String 
    'Split the strIn by the delim outputting the string at position <token> 

    Dim strArr As Variant 'array to split the initial string 
    Dim numArr() As Double 'array to hold just numeric values 
    Dim arrEl As Variant 'Element for the array 

    'fill strArr 
    strArr = Split(strIn, delim) 

    'initial numArr() 
    ReDim numArr(0 To 0) 

    'Loop through each element in the strArr 
    For Each arrEl In strArr 
     If IsNumeric(arrEl) Then 

      'resize the numArr to hold a new value 
      If numArr(0) <> 0 Then ReDim Preserve numArr(0 To UBound(numArr) + 1) 

      'write the value 
      numArr(UBound(numArr)) = arrEl 
     End If 
    Next arrEl 

    strtok = numArr(token - 1) 

End Function