作者：乔山办公网日期：
返回目录：excel表格制作
用vba结合正则运算编制一个自zd定义函数可以实现。举例说明.
例如有表格如图：
现要求取出每个单元格中的数字。
第一步：内点击开发工具-visual basic。
第二步：插入模块。
第三步：在插入的模块中编制自定义函数，代码如下：
Function dqsz(A)
With CreateObject("vbscript.RegExp")
.Global = True
.ignorecase = True
.Pattern = "[^0-9]"
dqsz = .Replace(A, "")
End With
End Function
第四步：在B2单元格输入公式：=dqsz(A2)。结果如图：
第五容步：将b2的公式下拉至B4.结果如图：
假设数据在A列,并从A1开始,在B1输入:
=mid(a1,4,100)
或者
=substitute(a1,"卡号：“,)
或者
=right(a1,2*len(a1)-lenb(a1))
要求：
想把excel中的文字删掉，只留数字，有没有批量删除的办法。
操作说明：
1、在zhidaoB1输入公式“=RIGHT(A1,LEN(A1)*2-LENB(A1))”，向下复制到B5，结果如黄内色区域。
2、复制黄色区域，“选择性粘贴/数值/确定”，消除公式，将A列删除，即可完成题意所求。
★文容字中间的阿拉伯数码，应改为中文数字，以免结果出错！
1、打开一个excel文件：
2、在百excel输入需要的数据，这里模拟了一度组有中文和数字的数据：
3、选中知数据，右键点击选择复制：
4、打开一个word文档，使用道快捷键ctrl+v把刚才回复制的表格粘贴到word中：
5、使用ctrl+h调出查找和替换，点击更多：
6、点击使用通配符：
7、在查找内容中输入[!0-9]，点击全部替换：
8、替换完答的效果：
9、再把word中的表格粘贴回excel表格中：