首页 › 实战技术 › 提取汉字VBA

nnsea 发表于 2023-10-25 23:54:13

提取汉字VBA

Sub 提取汉字()

Dim regx As Object, rng As Range

Set regx = CreateObject("vbscript.regexp")

With regx

.Global = True

.ignorecase = True

.Pattern = "\w"

For Each rng In

Cells(rng.Row, 2) = .Replace(rng.Value, "")

Next

End With

End Sub

查看完整版本: 提取汉字VBA