從細胞

Question

這個公式中刪除除了數字都刪除字符？

Answer 1

要包括.，包括在您Like表達

If ch Like "[0-9.]" Then 

Answer 2

更好地通過文字通過inital範圍內循環使用Regexp比慢慢循環性格：

Sub Quicker() 
Dim X 
Dim ObjRegex As Object 
Dim lngRow As Long 
Dim lngCOl As Long 

Set ObjRegex = CreateObject("vbscript.regexp") 
ObjRegex.Global = True 
ObjRegex.Pattern = "[^0-9/.]" 

X = Selection.Value2 
For lngRow = 1 To UBound(X, 1) 
    For lngCOl = 1 To UBound(X, 2) 
     X(lngRow, lngCOl) = ObjRegex.Replace(X(lngRow, lngCOl), vbNullString) 
    Next 
Next 

Selection.Value2 = X 

End Sub