excel 删除数字保留文本的两种方法,通过使用VBA代码和word替换法来删除数字
办公教程导读
收集整理了【excel 删除数字保留文本的两种方法,通过使用VBA代码和word替换法来删除数字】办公软件教程,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含874字,纯文字阅读大概需要2分钟。
办公教程内容图文
在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 删除数字保留文本的两种方法,通过使用VBA代码和word替换法来删除数字】办公软件教程的全部内容,希望文章能够帮你了解办公软件教程excel 删除数字保留文本的两种方法,通过使用VBA代码和word替换法来删除数字。
如果觉得办公软件教程内容还不错,欢迎将网站推荐给好友。