当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

excel 删除数字保留文本的两种办法,通过使用VBA代码与word替换法来删除数字

excel 删除数字保留文本的两种办法,通过使用VBA代码与word替换法来删除数字

更新时间:2024-01-22 文章作者:未知 信息来源:网络 阅读次数:

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件。直观的界面、出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理软件。

excel删除数字方法一:

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

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

excel 删除数字

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

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

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

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

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

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

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


Excel整体界面趋于平面化,显得清新简洁。流畅的动画和平滑的过渡,带来不同以往的使用体验。

温馨提示:喜欢本站的话,请收藏一下本站!

本类教程下载

系统下载排行

网站地图xml | 网站地图html