皮肤过敏红肿瘙痒中药:批量删除单元格内数字

来源:百度文库 编辑:中财网 时间:2024/05/03 04:05:30
批量删除单元格内数字2010-09-14 15:21

在下面表中的A2:A5区域内,各单元格中即有文字也有数字,有时为了某种要求,需要把数字部分去掉,只保留文字部分。


为了实现这个功能,需要做一个自定义函数。
先在EXCEL窗口中按ALT+F11组合键,调出VBA窗口,插入一个模块,把下面代码复制进去。


Function th(a As Range)
b = a.Value
For i = 0 To 9
    b = Application.WorksheetFunction.Substitute(b, i, "")
Next
th = b
End Function

这个自定义函数调用了EXCEL自带的SUBSTITUTE函数,SUBSTITUTE函数的功能是用一个新的字符串来替换文本中的指定字符串,大家可以在EXCEL自带的帮助文件中找到这个函数的详细说明和用法。


在自定义函数的代码中,通过循环,分别把0至9的数字用SUBSTITUTE函数替换为一个空字符。
用法:
=th(a)
参数a是单元格。

下面在一个空白单元格中,例如在C2单元格中输入公式 =th(A2)
它就把A2单元格中的数字全部去掉了,只保留文字内容。

把C2的公式用鼠标向下拖动复制到C列的其他格中,就可以得到图片中的结果了。