利用此函数可以剔除字符串中的汉字内容。（本代码中添加了对于中文计算符号的转换）

'该函数不需要单独采用符号来注明汉字。
Function Sp(ByVal Num)
Dim n, Chs
For n = 1 To Len(Num)
'先替换一些常用的计算符号，满足中英文混排。
If Mid(Num, n, 1) = "（" Then Mid(Num, n, 1) = "(" 
If Mid(Num, n, 1) = "）" Then Mid(Num, n, 1) = ")" 
If Mid(Num, n, 1) = "[" Then Mid(Num, n, 1) = "(" 
If Mid(Num, n, 1) = "]" Then Mid(Num, n, 1) = ")" 
If Mid(Num, n, 1) = "{" Then Mid(Num, n, 1) = "(" 
If Mid(Num, n, 1) = "}" Then Mid(Num, n, 1) = ")" 
If Mid(Num, n, 1) = "×" Then Mid(Num, n, 1) = "*" 
If Mid(Num, n, 1) = "÷" Then Mid(Num, n, 1) = "/" 
If Asc(Mid(Num, n, 1)) > 0 Then
    Chs = Chs & Mid(Num, n, 1)
End If
Next
Sp = Chs
End Function