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) 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"
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.com，快加我为好友吧"  
    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.com，QQ2：1111@qq.com,QQ3:123@qq.com"
    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
    MsgBox msg
End Sub

一些常用的正则表达式如下（出处：https://www.cnblogs.com/zxin/archive/2013/01/26/2877765.html（作者：zxin.cnblogs.com）为了防止失效，拷贝了一份过来：

一、校验数字的表达式

 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]* 或 ^http://([\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-4405222、021-87888822)：\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]+(.[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)) 

先讲讲其他的小栗子一、批量制作工资条表头以运行也没发现下面的代码什么问题，但就是慢得出奇，还有更好地方法还请小伙伴告知一下哟~Sub gz() '批量添加工资标题 Application.ScreenUpdating = False Dim i As Integer Dim myRow As Integer Dim sh As Worksheet Set sh = Sheets(1) myRow = sh.Range(. * @param 日期验证，验证的格式有： * "yyyyMM","yyyyMMdd","yyyyMMdd HH:mm:ss", * "yyyy-MM","yyyy-MM-dd","yyyy-MM-dd HH:mm:ss" * "yyyy.MM","yyyy.MM.dd","yyyy.MM.dd HH:mm:ss" * "yyyy/MM","yyyy/MM/dd","yyyy/MM/dd HH:mm:ss" * "yyyy_MM","yyyy_MM_dd","yyyy_MM_dd HH:mm:ss" * @param sDate * @return false/true public class Test { public static void main(String[] args) { String number="bsajlbc12345678900fjqo;VNQA89H4BNQNNCBNJCn;n；哦你不n;np" + "13634859061nav3498058877@qq.co. 1.验证日期的 正则表达式 加入闰年的判断以及思路分析 进入正题之前，我们需要澄清两个概念： 一，什么是合法的日期范围？对于不同的应用场景，这个问题有不同的解释。这里采纳MSDN中的约定： DateTime 值类型表示值范围在公元（基督纪元）0001 年 1 月 1 日午夜 12:00:00 到公元 (C.E.) 9999 年 12 月 31 日晚上 11:59:59 之间的日期和时间。 二，关于闰年的阐释。人民教育出版社小学数学室的解释浅明易懂（mediawiki等都没说明为什么整百年份 在这个例子中，首先创建了一个RegExp对象，然后设置了 正则表达式 的一些属性，比如Pattern属性就是用来设置 正则表达式 的。然后调用Execute方法来执行匹配操作，得到一个MatchCollection对象，这个对象中包含了所有匹配到的结果。最后遍历这个对象，逐个输出每一个匹配到的数字。 需要注意的是，在 VBA 中使用 正则表达式 需要引用"Microsoft VBScript Regular Expressions"库。可以在 VBA 编辑器中的"工具" -> "引用"中勾选这个库来启用它。 brr = [...] ►赋值成功 arr = Sheets(...).Range(...) ►报错:类型不匹配 arr = Sheets(...).Range(...).Value ►赋值成功 以上5种数组赋值行为，为什么第1和第4种会报错而其他能成功呢？ VBA 连接mysql数据库 查询操作 星河中的一粒沙: 赶紧更新啊，多弄点干货来 VBA 用户窗体的认识（三） 2301_76227538: 老师！可以分享这个素材么？ VBA 和其他应用程序交互 懵 Vito Lee: