excel删除数字保留文本的两种方法
我的图书馆
excel删除数字保留文本的两种方法
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), "") '进行根据模板替换字符串为空值& NextEnd Sub
excel删除数字方法二：WORD替换法
　　将excel所有需要删除数字的单元格区域内容复制到word文档中，在查找替换框中输入:^#，替换框保留空，不输入任何内容，单击“全部替换”。替换完毕，将数据再次复制到excel中。
馆藏&19773
TA的最新馆藏
喜欢该文的人也喜欢扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
请问,在EXCEL中数字加文字的组合中,怎么去掉最前面的字母比如第一行,A2568,第二行A3689,第三行B5689.所有的数字前面都有一个字母,用公式怎么去掉?
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
B1=MID(A1,2,8)
取A1单元格第二个字符起8个字符内容.
为您推荐：
其他类似问题
扫描下载二维码如何删除Excel单元格中字符串首尾的空格 - Office办公助手
最专业的Office办公软件学习和原创Office教程网站！
如何删除Excel单元格中字符串首尾的空格
发布时间：07-13　来源：Office办公助手()
作用：Excel中去掉单元格首尾空格，保留字符串中间空格。
用到的：MID，FIND，LEFT，RIGHT，TRIM，SUBSTITUTE，LEN
Excel公式：=MID(A1,FIND(LEFT(TRIM(A1)),A1),FIND(&☆&,SUBSTITUTE(A1,RIGHT(TRIM(A1)),&☆&,LEN(A1) - LEN(SUBSTITUTE(A1,RIGHT(TRIM(A1)),&&))))-FIND(LEFT(TRIM(A1)),A1)+1)
说明：设单元格为A1，值为：$$$ab$$aba$$$($代表空格)
1：求出A1中右边的第一个各非空格字符(rc : right char)
rc = RIGHT(TRIM(A1)) ----& rc = a
2：求出rc在A1中出现的次数
n = LEN(A1) - LEN(SUBSTITUTE(A1,rc,&&)) ----& 3
SUBSTITUTE(A1,rc,&&) : 将rc用空字符替换
3：将A1中最后一个rc替换为&☆&(因为&☆&不常用)(s : string)
s = SUBSTITUTE(A1,&☆&,n) ----& 得到字符串 $$$ab$$ab☆$$$
4：求出&☆& 的位置 (即右边第一个非空格字符的位置)(rf : right first)
rf = FIND(&☆&,s) ----& 10
5：求左边第一个非空格字符的位置(lf : left first)
lf = FIND(LEFT(TRIM(A1)),A1) ----& 4
6：取A1中从lf开始共rf-lf+1个字符
= MID(A1,lf,rf-lf+1)
上一篇： 下一篇：
专题教程推荐
(window.slotbydup=window.slotbydup || []).push({
id: '3577897',
container: s,
size: '300,450',
display: 'inlay-fix'
热门资源下载}