作者:乔山办公网日期:
返回目录:excel表格制作
正则表达式进行模糊copy替换的例子代码百:
Sub TestReplace()
Dim ss, re, rv
ss = "12苏5a中国度人民一二d三"& vbNewLine &"egg其d中国人民四a1五六"& vbNewLine&"凡dsf事都美国纽约问AAFa分"& vbNewLine&"发的事都美国纽约A分Fa分" & vbNewLine
Set re = New RegExp
re.Pattern = "^答\S+(中国人民|美国纽约)\S+$"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
rv = re.Replace(ss, "$1")
MsgBox rv
End Sub
Excel文件,常见格式有
*.xls;*.xl*;*.xla;*.xlt;*.xlm;*.xlc;*.xlw
使用正则表达式,可以用/\.xl.{1,2}$/
下面着重看Excel2007+中的常用文件格式:
*.xlsx:基于XML文件格式的Excel 2007工作簿缺省格式
*.xlsm:基于XML且启用宏的Excel 2007工作簿
*.xltx:Excel2007模板格式
*.xltm:Excel 2007宏模板
*.xlam:Excel 2007宏加载项
*.xlsb:Excel2007为大的或复杂的抄工袭作簿新引入的非XML二进制文zd件格,允许优化执行和向后兼容。
可以用另一个正则表达式,来精确匹配这6种格式
/\.xl(s[xmb]|t[xm]|am)$/
如果你文本中的格式是固定汉抄字在前。袭数字在后可以用下面这条
=SUBSTITUTE(A1,LOOKUP(9E+307,--MID(A1,MIN(FIND({0;1;2;3;4;5;6;7;8;9},A1&1234567890)),ROW(INDIRECT("1:"&LEN(A1))))),"")
A1格是要修改的内容zd
工具/材料:Microsoft Office Excel2016版,Excel表格。
1、首百先选中Excel表格,双击打开。
2、然后在该界面中度,选中要使用正则表达式知的单元格。
3、再者在该界面中,公式栏中输入道正则表达式的公式“内=RegexString(A1,"([\d]+)",1)”。
4、其次在该界面中,单元格里显示正容则表达式结果。
5、继续在该界面中,选中单元格,向下拖动。
6、最后在该界面中,成功显示正则表达式结果。