首页 > Excel专区 > Excel函数 >

exce利用自定义函数去掉字符串中的数字

Excel函数 2023-01-13

如果要去掉某个字符串中的所有数字,例如将一个字符串“Excel123”去掉数字后变为“Excel”,可以用自定义函数来实现。按Alt+F11打开VBA编辑器,单击菜单“插入→模块”,在右侧的代码窗口中输入自定义函数:

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

假如包含数字的字符串在A1单元格,在B1单元格中输入

=RemoveNums(A1)

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


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.