如果要去掉某个字符串中的所有数字,例如将一个字符串“Excel123”去掉数字后变为“Excel”,可以用自定义函数来实现。按Alt+F11打开VBA编辑器,单击菜单“插入→模块”,在右侧的代码窗口中输入自定义函数: Function RemoveNums(theString As String)Dim eachChar, Temp As StringDim i As IntegerTemp = ""For i = 1 To Len(theString)eachChar = Mid(theString, i, 1)If Asc(eachChar) < 48 Or Asc(eachChar) > 57 ThenTemp = Temp & eachCharEnd IfNextRemoveNums = TempEnd Function
假如包含数字的字符串在A1单元格,在B1单元格中输入
=RemoveNums(A1)
即可返回一个去掉数字后的字符串,如果字符串全部由数字组成,则返回空字符串。
由强国说学习-WPS之家(wps.qiangguoshuo.com)收集的该篇文章内容来源于网络,希望能为广大朋友提供帮助。
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!