Excel VBA【案例分享】正则表达式提取中文字符/五笔字型编码文本整理

Sub process()    On Error Resume Next    Dim ws As Worksheet    Dim lastRow As Integer    Dim arr(), str1 As String, str2 As String    Dim regex As Object    Dim matches As Object    Set ws = ThisWorkbook.Sheets("Sheet1")    Set regex = CreateObject("VBScript.RegExp")    regex.Global = True    regex.IgnoreCase = True    regex.Pattern = "[\u4e00-\u9fa5\d]+"    With ws        lastRow = .UsedRange.Rows.Count        .Range("C2:C" & lastRow).ClearContents        arr = ws.Range(Cells(2, 2), Cells(lastRow, 3)).Value        For i = 1 To UBound(arr)            str1 = arr(i, 1)            Set matches = regex.Execute(str1)            For j = 0 To matches.Count - 1                str2 = str2 & matches(j) & " "            Next            str2 = Left(str2, Len(str2) - 1)  '去掉尾部多余空格            arr(i, 2) = Left(str1, InStr(str1, " ")) & str2            str2 = ""        Next        .Range("B2").Resize(UBound(arr), 2) = arr    End WithEnd Sub

代码解析：

（1）Line2，容错语句，防止正则表达式匹配不到内容报错。

（2）Line3~7，定义变量，数组、工作表对象、字典对象、正则表达式对象等。

（3）line12，正则表达式的模式（pattern），匹配任意数量的中文与数字。这里原来仅仅匹配中文的，但在测试中发现，个别文本中还带有数字。

（4）line16，把原始数据装入数组arr()。

（5）line17~26，循环数组，逐个处理第一列字符，把结果存到第二列。

（A）line18，把第一列字符赋值给str1，方便后面引用。

（B）line19，进行正则表达式的匹配。

（C）line20~25，对匹配结果进行处理，把多个匹配结果连接起来，中间空一格，去掉尾部多余的空格，赋值给str2；把第一列字符第一个空格及前面的字符截取出来，并与str2相连接，存到数组第二列。

（6）line27，把数组结果回写到工作表。

2、在工作表Sheet1里，命令按钮：

Private Sub CmdProcess_Click()    Call processEnd Sub
Private Sub CmdClear_Click()    With Sheets("Sheet1")        .Range("C2:C" & .UsedRange.Rows.Count).ClearContents    End WithEnd Sub

代码解析：

（1）Line1~3，调用process处理过程。

（2）Line5~9，清除C列生成的内容，这主要是为了演示的需要，在process过程中也有清除内容的语句。

动画演示

总结

1、用正则表达式处理字符串，非常方便。

2、我们考虑问题的时候，如果正面处理没法下手，可以试试换一个角度看问题。

~~~~~~End~~~~~~

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。