vba代码提取汉字和数字的方法(vba代码提取汉字和数字)

导语：VBA代码、提取汉字和数字

实现功能：把文字里的数字和汉字拆分出来写入到单元格里

下面是代码分享

Sub 提取数字和汉字()

Dim strtxt As String 申明重复字符串

Dim objregex As Object, objmatch As Object 申明正则表达式对象变量

Dim objmh As Object

Dim datarng As Range, c As Range 申明单元格对象变量

Set objregex = CreateObject(&34;) 创建一个正则表达式对象

objregex.Pattern = &34; 匹配字符串

objregex.Global = True 搜索全部字符

Set datarng = Range([a2], Cells(Rows.Count, 1).End(xlUp)) 定位单元格区域

arrcol = Array(&34;, &34;, &34;, &34;) 把内容写给一维数组里

For Each c In datarng 循环单元格区域

strtxt = c.Value 把单元格里的值赋给变量

Set objmatch = objregex.Execute(strtxt) 正则表达式来匹配字符串

If objmatch.Count > 0 Then 判断是否匹配成功

For Each objmh In objmatch 循环正则表达式对象

For i = 0 To 3 循环0至3的数

Cells(c.Row, arrcol(i)).Value = Trim(objmh.submatches(i)) 把匹配成功的字符串写入单元格

Trim 是去除字符串中的空格，如果是英文会留一个。

End If

End Sub

本文内容由小森整理编辑！