Excel VBA去掉字符串中的数字

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

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)

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

效果图如下：