前面我们讲过用正则表达式获取字符串中的数字

http://www.excel-cn.com/tip/342-cn.html

这里我们反过来，用自定义函数去掉字符串中数字

详细源码：

Function RemoveNums(theString As String)     Dim eachChar, Temp As String     Dim i As Integer     Temp = ""     For i = 1 To Len(theString)         eachChar = Mid(theString, i, 1)         If Asc(eachChar) < 48 Or Asc(eachChar) > 57 Then             Temp = Temp & eachChar         End If     Next     RemoveNums = Temp End Function

例如在A3单元格有包含数字的字符串，在D3单元格中输入=RemoveNums(A1)

即可返回一个去掉数字后的字符串，如果字符串全部由数字组成，则返回空字符串。

效果图如下：