本文介绍excel删除数字保留文本的两种方法 ， 通过使用VBA代码和word替换法来删除数字 。
excel删除数字方法一：
Excel工作表中删除数字只保留文本 ， 是一个比较常见的例子 。
如下图所示 ， A列的源数据有一些数字 ， 而且这些数字在单元格中的位置是无序不固定的 。如何删除数字 ， 达到的效果如C列所示 。
在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删除数字保留文本的两种方法】
推荐阅读
- 怎么停止Excel屏幕刷新
- Excel VBA单元格的引用方法
- Excel for VBA：对象枚举循环For each
- 怎么隐藏Excel常用工具栏
- Excel VBA“对于指定的操作，该主题不受信任。”的解决方法
- Excel条件格式图标集的使用实例教程
- Excel vba添加批注的代码写法实例教程
- 怎么在Excel表格中编辑“宏”
- Excel VBA实现按名称循环出现特定次数
- Excel 工作表个数计算