从细胞

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