Function 提取中文(str As String) As String
Set regEx = CreateObject("vbscript.regexp")
With regEx
.Global = 1
.Pattern = "[Function RemoveNarrow(str As String) As String"
Set regEx = CreateObject("vbscript.regexp")
With regEx
.Global = 1
.Pattern = "[^\u4e00-\u9fff]"
提取中文 = .Replace(str, "")
End With
End With
End Function
Sub test()
X = Application.CountA(Worksheets("SHEET3").Range("A:A"))
For I = 2 To X
Worksheets("SHEET3").Cells(I, 7) = 提取中文(Worksheets("SHEET3").Cells(I, 3))
Next
End Sub
VBA利用正则提取中文
最新推荐文章于 2024-05-30 19:00:22 发布