Private Sub RegExp_Replace()
Dim RegExp As Object
Dim SearchRange As Range, Cell As Range
'此处定义正则表达式
Set RegExp = CreateObject("vbscript.regexp")
RegExp.Pattern = "[0-9]{5}"
'此处指定查找范围
Set SearchRange = ActiveSheet.Range("A1:A99")
'遍历查找范围内的单元格
For Each Cell In SearchRange
Set Matches = RegExp.Execute(Cell.Value)
If Matches.Count >= 1 Then
Set Match = Matches(0)
Cell.Value = RegExp.Replace(Cell.Value, "")
End If
Next
End Sub
Private Sub RegExp_Replace() End Sub
Excel模板如下：
Excel模板来自定义的一个excel模板，相当于是用户查询数据，数据填充到一个模板的Excel里，再导出Exce...
需求:利用EXCEL模板生成建/改库的SQL语句。 1.EXCEL：模板 2.导入所需依赖 3.实现：Excel模...
问题出现原因 excel模板中含有超链接 解决方法 将excel模板中的超链接格式删除，重新导入excel， ok...
《PHP Learning》模板引擎 模板处理使用正则处理模板替换规则保存模板编译结果 模板使用 自定义模板引擎 ...
年终总结、季度报告、月末总结大家都在忙着制作Excel图表，到处寻找模板，Excel模板都在这里，看看这些图表模板...
1.初始化excel及调用 2.设置excel公共的表头模板 3.数据插入的公共模板 4.插入图片到excel里 ...
如果你新建的Excel文件模板可用按照自己的使用习惯去设置模板，那么你新建的所有的Excel文件都是这个模板，是不...
ppt，word，excel模板免费下载
本文标题：excel正则模板
本文链接：https://www.haomeiwen.com/subject/doxcfqtx.html
网友评论