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

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

如果要去掉某个字符串中的所有数字，例如将一个字符串“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)

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。