vba的正则表达式使用

Sub getNum1()
    ' 这种使用方式需要"工具""引用"
    ' 引用Microsoft VBScript Regular Expressions 5.5类库
    Dim i As Integer
    Dim j As Integer
    j = 1
    
    Dim reg As New RegExp
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .Global = True
        .IgnoreCase = True
        .Pattern = "\u4e07" '汉字  “年”是Unicode转换过啦的
    End With
    
  For i = 1 To 900
     If reg.Test(Cells(i, 3).Value) Then
     Sheets("Sheet2").Cells(j, 1).Value = Sheets("Sheet1").Cells(i, 1).Value
      Sheets("Sheet2").Cells(j, 2).Value = Sheets("Sheet1").Cells(i, 9).Value
       Sheets("Sheet2").Cells(j, 3).Value = Sheets("Sheet1").Cells(i, 10).Value
      j = j + 1
     End If
  
   Next
End Sub

 

 

UTF-8 (Unicode) \u4e00-\u9fa5 (中文) \x3130-\x318F (韩文) \xAC00-\xD7A3 (韩文)  \u0800-\u4e00