excel删除数字保留文本的两种方法

   2020-11-20 IP属地 浙江1740
核心提示:本文介绍excel删除数字保留文本的两种方法,通过使用VBA代码和word替换法来删除数字。
内容提要:本文介绍excel删除数字保留文本的两种方法,通过使用VBA代码和word替换法来删除数字。

excel删除数字方法一:

Excel工作表中删除数字只保留文本,是一个比较常见的例子。

如下图所示,A列的源数据有一些数字,而且这些数字在单元格中的位置是无序不固定的。如何删除数字,达到的效果如C列所示。

在excel中数字与文字共存的情况下,如果有规律,可以使用公式来分离字母、汉字、数字;如果没有规律,比较理想的还是是用VBA来解决。

下面是具体的excel删除数字操作步骤:

按ALT+F11,打开VBE编辑器,单击插入――模块,复制下面的代码,然后按F5键运行,excel会自动将A列所有的内容删除数字之后的结果提取放在C列。

Subexcel删除数字()
 DimregAsObject'定义reg为一个对象
 Dimarr'定义一个动态数组
 DimiAsLong,jAsLong'分别定义i,j为长整型
 i=Range("A65536").End(xlUp).Row'把A列非空的最后行数赋予给i
 Columns("C").ClearContents'清空C列
 arr=Range("A1:A"&i)'把A列的数据赋予给数组arr
 Setreg=CreateObject("VBscript.RegExp")'调用正则表达式
 Withreg'定义表达式
   .Global=True'匹配所有搜索项
   .ignorecase=True'不区分大小写
   .Pattern="[0-9]"'数字的表达式
 EndWith
 Forj=1Toi'循环该区域
    Range("C"&j)=reg.Replace(arr(j,1),"")'进行根据模板替换字符串为空值
 Next
EndSub

excel删除数字方法二:WORD替换法

将excel所有需要删除数字的单元格区域内容复制到word文档中,在查找替换框中输入:^#,替换框保留空,不输入任何内容,单击“全部替换”。替换完毕,将数据再次复制到excel中。

 

如果是相反的,需要批量提取单元格的数字,可以参考此文章介绍:http://www.ittribalwo.com/show.asp?id=909

 
反对 0举报收藏 0打赏 0评论 0
更多>相关评论
暂时没有评论,来说点什么吧
更多>同类办公
推荐图文
推荐办公
点击排行