Excel VBA-正则表达式汇总

========================

   'Pattern代码汇总'^\s 替换行首空格'^\n 替换行首的换行符'"^\d\.\s*" 去除序号'^(.*)$ 匹配整行

========================

Private Sub 批量替换去除无用字符()Application.ScreenUpdating = False '关闭屏幕刷新Dim RegExp As ObjectDim SearchRange As Range, Cell As Range'此处定义正则表达式Set RegExp = CreateObject("vbscript.regexp")'初始化正则对象With RegExp.Global = True.IgnoreCase = True.MultiLine = True.Pattern = "^\n"End With'此处指定查找范围Set SearchRange = Selection'遍历查找范围内的单元格For Each Cell In SearchRangeSet matches = RegExp.Execute(Cell.Value)If matches.Count >= 1 ThenCell.Value = RegExp.Replace(Cell.Value, "")End IfNextApplication.ScreenUpdating = True '开启屏幕刷新
End Sub

========================

Private Sub 单元格内每行内容添加序号()Application.ScreenUpdating = False '关闭屏幕刷新Dim RegExp As ObjectDim SearchRange As Range, Cell As Range'此处定义正则表达式Set RegExp = CreateObject("vbscript.regexp")'初始化正则对象With RegExp.Global = True.IgnoreCase = True.MultiLine = True.Pattern = "^(.*)$"End With'此处指定查找范围Set SearchRange = Selection'遍历查找范围内的单元格For Each Cell In SearchRangeSet matches = RegExp.Execute(Cell.Value)If matches.Count > 1 ThenFor Each Match In matchesn = n + 1strcell = strcell & n & ".  " & Match.Value & Chr(10)Next'最后一行多了一个Chr(10),需要截去Cell.Value = Mid(strcell, 1, Len(strcell) - 1)End IfNextApplication.ScreenUpdating = True '开启屏幕刷新
End Sub

========================

Public Sub 用空格连接选中单元格内容()Dim str As String, temp As String, CXrng As Range, XRrng As RangeSet CXrng = SelectionFor Each XRrng In CXrngstr = str & Chr(32) & XRrng.ValueXRrng.ClearContentsNextCXrng(1) = str
End Sub'连接多个单元格文本，使用Alt+Enter
Public Sub 用Alt+Enter连接选中单元格内容()Dim str As String, temp As String, CXrng As Range, XRrng As RangeSet CXrng = SelectionFor Each XRrng In CXrngstr = str & Chr(10) & XRrng.ValueXRrng.ClearContentsNextCXrng(1) = str
End Sub

======================

Sub 正则表达式提取匹配文本()'定义正则对象和单元格区域Dim rngRg As RangeDim objRe As Object'创建正则对象，并将当前选择区域赋值给rngRgSet objRe = CreateObject("vbscript.regexp")Set rngRg = Selection'初始化正则对象With objRe.Global = True.IgnoreCase = True.MultiLine = True.Pattern = "AAA"End With'遍历选择区域的每个单元格For Each cell In rngRg'如果有符合正则表达式的对象If objRe.test(cell.Value) Then'将匹配集合的所有对象的值复制给Matches对象Set Matches = objRe.Execute(cell.Value)'遍历Mathces对象，将结果输出到右侧单元格内For countM = 1 To Matches.Countcell.Offset(0, countM) = Matches(countM - 1)NextEnd IfNext
End Sub

========================

Sub 正则表达式替换内容输出到右侧列()Application.ScreenUpdating = False '关闭屏幕刷新'定义正则对象和单元格区域Dim rngRg As RangeDim objRe As Object'创建正则对象，并将当前选择区域赋值给rngRgSet objRe = CreateObject("vbscript.regexp")Set rngRg = Selection'初始化正则对象With objRe.Global = True.IgnoreCase = True.MultiLine = True.Pattern = "AAA"End With'遍历选择区域的每个单元格For Each cell In rngRg'如果有符合正则表达式的对象If objRe.test(cell.Value) Then'将匹配集合的所有对象的值进行替换，并输出在右侧一列cell.Offset(0, 1) = objRe.Replace(cell.Value, "BBB")End IfNextApplication.ScreenUpdating = True'开启屏幕刷新
End Sub

=======================

Excel VBA-正则表达式汇总相关推荐

EXCEL VBA 正则表达式
[2011-09-09:http://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html] [2010-08-08:http://www.e ...
Excel VBA 多条件筛选及汇总统计
Excel VBA 多条件筛选 AdvancedFilter 汇总统计 sumproduct Range与Array交换在日常工作中,面对Excel表格数据,为了分类进行统计,通过对表格数据筛选获取 ...
Excel 用vba自动汇总实例
Excel 用vba自动汇总需要安装 wps vba 开启插件在WPS 开发工具选项宏安全性调到最低,用百度网盘(提取码:7896)下载解压后运行exe文件,安装成功后如下图. PS:安装包来源于 ...
【Excel VBA】逐个读取Excel文件并将内容复制到汇总表中——每月自动汇总考勤数据实例
纲举目张说明关键技术点:Workbooks.Open 代码code 运行效果图使用说明说明上一讲[Excel VBA]利用数组.集合.循环等检查各单位报送情况--每月自动汇总考勤数据实例已经 ...
Excel·VBA多行多列数据简单汇总
目录 1,多行多列数据简单汇总举例 2,数据汇总函数化.通用化 match函数举例1 举例2 3,字典嵌套字典汇总数据举例不同于之前写过的 <Excel·VBA统计表生成函数及应用实例& ...
详解xlwings包，用Python代替Excel VBA
详解xlwings包,用Python代替Excel VBA <代替VBA! 用Python轻松实现Excel编程>demo 主要内容 Python语法基础 Excel对象模型:OpenPy ...
vba怎么安装_VBA还要学吗？怎么入门Excel VBA？
教程领到手,学习不用愁!领 ↑↑↑ 快捷高效入门:看知识兔视频课程,跟着知识兔老师操作,听知识兔老师讲解,边看边实练,初学者不要自己瞎琢磨瞎折腾,很容易走弯路.学以致用,光看不练都是假把式.学完知识兔 ...
excel vba 如何将日期周几转换成文字_Excel 从精通到入门
Excel 从精通到入门引子 Excel? 这么简单的东西有学的必要吗?公式加减乘除,诶等等这个日期怎么变成 #### 了,虽然文本数字搞不清楚,但也算熟练使用 Excel 啦. WOW, Awso ...
来吧！带你玩转 Excel VBA
来吧!带你玩转 Excel VBA(含CD光盘1张)(双色)(附带近500个VBA思考练习题,Exceltip.net出品) 罗刚君杨嘉恺编著 ISBN 978-7-121-20627-6 201 ...
来吧带你玩转 Excel VBA
分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow 也欢迎大家转载本篇文章.分享知识,造福人民,实现我们中华民族伟大复兴! 来吧!带 ...

Excel VBA-正则表达式汇总

Excel VBA-正则表达式汇总相关推荐

最新文章

热门文章