如何從字母數字文本中提取數字？

Question

我在excel中的字符串可以是任何像213221-sddc或232323/scdscsd或數字和字符之間的任何分隔符......我怎樣才能從這個文本中提取數字？

Answer 1

這僅僅是一個開始，你可以從一系列閱讀你的所有字母數字文字（根據圖像），然後使用ABOVE MENTIONED FUNCTION From Dave and Richie

Option Explicit 

Sub TestRange() 
Dim numberArray As Variant 
Dim i As Integer 
Dim strTemp As String 

    numberArray = Application.Transpose(Sheets(1).Range("B4:B11")) 

    For i = LBound(numberArray) To UBound(numberArray) 
     strTemp = numberArray(i) 
     numberArray(i) = ExtractNumber(strTemp) '-- **You use above mentioned function** 
    Next i 

'Output the processed array into the Sheet. 
Sheets(1).Range("C4").Resize(UBound(numberArray), _ 
LBound(numberArray)) = Application.Transpose(numberArray) 

End Sub 

輸出：

Answer 2

使用正則表達式。我已經將strNoAlpha作爲Double加入，但如果需要，這也可以是一個字符串。

Dim str As String, strNoAlpha As Double 

str = "213221-sddc" 
With CreateObject("vbscript.regexp") 
    .Pattern = "[^\d]+" 
    .Global = True 
    strNoAlpha = Trim(.Replace(str, vbNullString)) 
End With 

或者作爲UDF：

Function removeAlpha(rng As Range) As Double 

    If (rng.Count <> 1) Then 
     removeAlpha = "Only select one cell" 
     Exit Function 
    End If 

    Dim str As String 

    str = rng.Value2 

    With CreateObject("vbscript.regexp") 
     .Pattern = "[^\d]+" 
     .Global = True 
     removeAlpha = Trim(.Replace(str, vbNullString)) 
    End With 

End Function