假设你的意思是你想要删除非数字,你应该可以使用类似的东西:Function onlyDigits(s As String) As String
' Variables needed (remember to use "option explicit"). '
Dim retval As String ' This is the return string. '
Dim i As Integer ' Counter for character position. '
' Initialise return string to empty '
retval = ""
' For every character in input string, copy digits to '
' return string. '
For i = 1 To Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then
retval = retval + Mid(s, i, 1)
End If
Next
' Then return the return string. '
onlyDigits = retvalEnd Function
这称呼:Dim myStr as StringmyStr = onlyDigits ("3d1fgd4g1dg5d9gdg")MsgBox (myStr)
会给你一个对话框,其中包含:314159
前两行显示如何将其存储到任意字符串变量中,以便按照您的意愿进行操作。