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集合 </