VBA利⽤正则表达式筛选数据先讲讲其他的⼩栗⼦
⼀、批量制作⼯资条表头
以运⾏也没发现下⾯的代码什么问题，但就是慢得出奇，还有更好地⽅法还请⼩伙伴告知⼀下哟~
Sub gz()
'批量添加⼯资标题
Application.ScreenUpdating = False
Dim i As Integer
Dim myRow As Integer
Dim sh As Worksheet
Set sh = Sheets(1)
myRow = sh.Range("A1").End(xlDown).Row
For i = myRow To 3 Step -1
sh.Rows(i).Insert Shift:=xlDown, copyorigin:=xlformatleftorabove
sh.Range("a1").Resize(1, 8).Copy sh.Range("A" & i)
Next
Application.ScreenUpdating = True
End Sub
⼆、批量将⼯作表拆分为单独⽂件
这个很简单啦，以前也做过，再练习⼀下
Sub div()
Dim sh As Worksheet
Dim path As String
path = "E:\"
For Each sh In ThisWorkbook.Worksheets
sh.SaveAs Filename:=path & sh.Name & ".csv"
Next
End Sub
三、利⽤正则表达式进⾏定向提取
正则表达式之前没有提到过，VBA启⽤的话现在请记得在VBE——⼯具——引⽤中添加 Microsoft VBScript Regular Expressions 5.5：
再认识⼀下VBA中正则的属性和⽅法
属性说明⽅法说明
正则表达式提取中文
Global Boolean值，指明单次匹配或者全部匹配Execute将正则模式应⽤于字符串，并返回Matchs集合IgnoreCase Boolean值，指明匹配模式是否⼤⼩写敏感Replace替换正则模式匹配的⽂本
Pattern指定⽤于搜索的正则模式Test对字符串执⾏正则匹配，返回Boolean值说明匹配是否成功Multiline指定的搜索字符串分布在多⾏
现在⽤⼀下试试，来个最简单的例⼦
⽐如写了⼀堆废话，然后我只想要⾥⾯的邮箱，可以这样操作：
Sub reg()
Dim reg As New RegExp
Dim mc As MatchCollection
Dim myMail As String
myMail = "我的邮箱是12345@qq，快加我为好友吧"
With reg
.Global = True
.IgnoreCase = False
'邮箱的正则表达
.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
End With
Set mc = reg.Execute(myMail)
MsgBox mc(0)
End Sub
如果⼀个内容⾥⾯涉及到多个符合条件的值，且都需要输出的话，需要加match参数⽤来遍历MatchCollection
Sub reg()
Dim reg As New RegExp
Dim m As Match
Dim mc As MatchCollection
Dim myMail As String
Dim msg As String
myMail = "我的QQ1：12345@qq，QQ2：1111@qq,QQ3:123@qq"
With reg
.Global = True
.IgnoreCase = False
'邮箱的正则表达
.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
End With
Set mc = reg.Execute(myMail)
For Each m In mc
msg = msg & m.Value & vbNewLine
Next
MsgBox msg
End Sub
⼀、校验数字的表达式
1 数字：^[0-9]*$
2 n位的数字：^\d{n}$
3 ⾄少n位的数字：^\d{n,}$
4 m-n位的数字：^\d{m,n}$
5 零和⾮零开头的数字：^(0|[1-9][0-9]*)$
6 ⾮零开头的最多带两位⼩数的数字：^([1-9][0-9]*)+(.[0-9]{1,2})?$
7 带1-2位⼩数的正数或负数：^(\-)?\d+(\.\d{1,2})?$
8 正数、负数、和⼩数：^(\-|\+)?\d+(\.\d+)?$
9 有两位⼩数的正实数：^[0-9]+(.[0-9]{2})?$
10 有1~3位⼩数的正实数：^[0-9]+(.[0-9]{1,3})?$
11 ⾮零的正整数：^[1-9]\d*$ 或 ^([1-9][0-9]*){1,3}$ 或 ^\+?[1-9][0-9]*$
12 ⾮零的负整数：^\-[1-9][]0-9"*$ 或 ^-[1-9]\d*$
13 ⾮负整数：^\d+$ 或 ^[1-9]\d*|0$
14 ⾮正整数：^-[1-9]\d*|0$ 或 ^((-\d+)|(0+))$
15 ⾮负浮点数：^\d+(\.\d+)?$ 或 ^[1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0$
16 ⾮正浮点数：^((-\d+(\.\d+)?)|(0+(\.0+)?))$ 或 ^(-([1-9]\d*\.\d*|0\.\d*[1-9]\d*))|0?\.0+|0$
17 正浮点数：^[1-9]\d*\.\d*|0\.\d*[1-9]\d*$ 或 ^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$
18 负浮点数：^-([1-9]\d*\.\d*|0\.\d*[1-9]\d*)$ 或 ^(-(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*)))$
19 浮点数：^(-?\d+)(\.\d+)?$ 或 ^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$
⼆、校验字符的表达式
1 汉字：^[\u4e00-\u9fa5]{0,}$
2 英⽂和数字：^[A-Za-z0-9]+$ 或 ^[A-Za-z0-9]{4,40}$
3 长度为3-20的所有字符：^.{3,20}$
4 由26个英⽂字母组成的字符串：^[A-Za-z]+$
5 由26个⼤写英⽂字母组成的字符串：^[A-Z]+$
6 由26个⼩写英⽂字母组成的字符串：^[a-z]+$
7 由数字和26个英⽂字母组成的字符串：^[A-Za-z0-9]+$
8 由数字、26个英⽂字母或者下划线组成的字符串：^\w+$ 或 ^\w{3,20}$
9 中⽂、英⽂、数字包括下划线：^[\u4E00-\u9FA5A-Za-z0-9_]+$
10 中⽂、英⽂、数字但不包括下划线等符号：^[\u4E00-\u9FA5A-Za-z0-9]+$ 或 ^[\u4E00-\u9FA5A-Za-z0-9]{2,20}$
11 可以输⼊含有^%&',;=?$\"等字符：[^%&',;=?$\x22]+
12 禁⽌输⼊含有~的字符：[^~\x22]+
三、特殊需求表达式
1 Email地址：^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$
2 域名：[a-zA-Z0-9][-a-zA-Z0-9]{0,62}(/.[a-zA-Z0-9][-a-zA-Z0-9]{0,62})+/.?
3 InternetURL：[a-zA-z]+://[^\s]* 或 ^([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?$
4 ⼿机号码：^(13[0-9]|14[0-9]|15[0-9]|16[0-9]|17[0-9]|18[0-9]|19[0-9])\d{8}$ (由于⼯信部放号段不定时，所以建议使⽤泛解析 ^([1][3,4,5,6,7,8,9])\d{9}$)
5 电话号码("XXX-XXXXXXX"、"XXXX-XXXXXXXX"、"XXX-XXXXXXX"、"XXX-XXXXXXXX"、"XXXXXXX"和"XXXXXXXX)：^(\(\d{3,4}-)|\d{3.4}-)?\d{7,8}$
6 国内电话号码(0511-*******、021-********)：\d{3}-\d{8}|\d{4}-\d{7}
7 18位⾝份证号码(数字、字母x结尾)：^((\d{18})|([0-9x]{18})|([0-9X]{18}))$
8 帐号是否合法(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$
9 密码(以字母开头，长度在6~18之间，只能包含字母、数字和下划线)：^[a-zA-Z]\w{5,17}$
10 强密码(必须包含⼤⼩写字母和数字的组合，不能使⽤特殊字符，长度在8-10之间)：^(?=.*\d)(?=.*[a-z])(?=.*[A-Z]).{8,10}$
11 ⽇期格式：^\d{4}-\d{1,2}-\d{1,2}
12 ⼀年的12个⽉(01～09和1～12)：^(0?[1-9]|1[0-2])$
13 ⼀个⽉的31天(01～09和1～31)：^((0?[1-9])|((1|2)[0-9])|30|31)$
14 钱的输⼊格式：
14.1 有四种钱的表⽰形式我们可以接受:"10000.00" 和 "10,000.00", 和没有 "分" 的 "10000" 和 "10,000"：^[1-9][0-9]*$
14.2 这表⽰任意⼀个不以0开头的数字，但是，这也意味着⼀个字符"0"不通过，所以我们采⽤下⾯的形式：^(0|[1-9][0-9]*)$
14.3 ⼀个0或者⼀个不以0开头的数字.我们还可以允许开头有⼀个负号：^(0|-?[1-9][0-9]*)$
14.4 这表⽰⼀个0或者⼀个可能为负的开头不为0的数字.让⽤户以0开头好了.把负号的也去掉，因为钱总不能是负的吧.下⾯我们要加的是说明可能的⼩数部分：^[0-9]+( 14.5 必须说明的是,⼩数点后⾯⾄少应该有1位数，所以"10."是不通过的，但是 "10" 和 "10.2" 是通过的：^[0-9]+(.[0-9]{2})?$
14.6.这样我们规定⼩数点后⾯必须有两位，如果你认为太苛刻了，可以这样：^[0-9]+(.[0-9]{1,2})?$
14.7 这样就允许⽤户只写⼀位⼩数.下⾯我们该考虑数字中的逗号了，我们可以这样：^[0-9]{1,3}(,[0-9]{3})*(.[0-9]{1,2})?$
14.8 1到3个数字，后⾯跟着任意个逗号+3个数字，逗号成为可选,⽽不是必须：^([0-9]+|[0-9]{1,3}(,[0-9]{3})*)(.[0-9]{1,2})?$
15 xml⽂件：^([a-zA-Z]+-?)+[a-zA-Z0-9]+\\.[x|X][m|M][l|L]$
16 中⽂字符的正则表达式：[\u4e00-\u9fa5]
17 双字节字符：[^\x00-\xff]    (包括汉字在内，可以⽤来计算字符串的长度(⼀个双字节字符长度计2，ASCII字符计1))
18 空⽩⾏的正则表达式：\n\s*\r    (可以⽤来删除空⽩⾏)
19 HTML标记的正则表达式：<(\S*?)[^>]*>.*?</\1>|<.*? />    (⽹上流传的版本太糟糕，上⾯这个也仅仅能部分，对于复杂的嵌套标记依旧⽆能为⼒)
20 ⾸尾空⽩字符的正则表达式：^\s*|\s*$或(^\s*)|(\s*$)    (可以⽤来删除⾏⾸⾏尾的空⽩字符(包括空格、制表符、换页符等等)，⾮常有⽤的表达式)
21 腾讯QQ号：[1-9][0-9]{4,}    (腾讯QQ号从10000开始)
22 中国：[1-9]\d{5}(?!\d)    (中国为6位数字)
23 IP地址：\d+\.\d+\.\d+\.\d+    (提取IP地址时有⽤)
24 IP地址：((?:(?:25[0-5]|2[0-4]\\d|[01]?\\d?\\d)\\.){3}(?:25[0-5]|2[0-4]\\d|[01]?\\d?\\d))

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。