教你一个方法,虽然步骤繁琐点,但能解决问题,而且不麻烦
先把Excel中的数据,复制到word中
然后打开查找替换界面
在下面选择“使用通配符”
查找中输入[!0-9]
然后点击全部替换
然后把数据复制回Excel中,就实现了你的要求。
当然可以利用VBA写自定义函数,这个就有点小复杂了
B2单元格输入下面的公式: =MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A2&"0123456789")),2*LEN(A2)-LENB(A2)
此公式只针对中文+数字适用,且数字只能一段,不能多段。。。
FUQIN电话114551 114551
120119115FUQIN电话 120119115FUQIN
父亲110114母亲10086 110114母亲100
耗子药998一包50克 998一包
耗子药998一包 998
FUQIN120119114电话 120119114电话
FUQIN电话120119114 120119114
HAOZIYAO998YIBAO 998YIBAO
亲,如下图,b1的公式是数组公式。在单元格中粘贴完成以后,不要直接按回车退出,一定要按“ctrl+shift+回车”退出。然后下拉公式。
=right(a1,min(if((code(left(right(a1,row($1:$100)),1))>=65)*(code(left(right(a1,row($1:$100)),1))<=90)+(code(left(right(a1,row($1:$100)),1))=45),row($1:$100)))-1)