Excel VBA去掉字符串中的数字

前面我们讲过用正则表达式获取字符串中的数字http://www.excel-cn.com/tip/342-cn.html
这里我们反过来，用自定义函数去掉字符串中数字
详细源码：FunctionRemoveNums(theStringAsString)
DimeachChar,TempAsString
DimiAsInteger
Temp=""
Fori=1ToLen(theString)
eachChar=Mid(theString,i,1)
IfAsc(eachChar)57Then
Temp=Temp&eachChar
EndIf
Next
RemoveNums=Temp
EndFunction例如在A3单元格有包含数字的字符串，在D3单元格中输入=RemoveNums(A1)即可返回一个去掉数字后的字符串，如果字符串全部由数字组成，则返回空字符串。
效果图如下：

1506588089571419.jpg