每日Excel分享（VBA）| 字符若干，只取中文

感

谢

关

注

导读

今天有个网友问该怎么保留字符串中的中文，清除中文以外的其他字符，如下图：

对于这种不规律的复杂字符，最好的办法就是用正则表达式结合VBA，干净彻底无副作用，下面就由我来跟大家分享一下用法。

首先，我们先准备一下数据源，我们要清除下图字符串中除中文之外的其他字符

按ALT F11弹出VBE窗口，然后新建模块，如下图：

粘贴的代码如下：

Function demo(i As String) As String

  Dim a As Object

  Set a = CreateObject('VBSCRIPT.REGEXP')

  a.Pattern = '[^\u4e00-\u9fa5]'

  a.IgnoreCase = True

  a.Global = True

  demo = a.Replace(i, '')

  Set a = Nothing

End Function

保存完代码之后我们回到表格里面，在单元格输入我们刚才写的自定义函数，如下图：

今天就随便写一点吧，虽然很不开心，但是还是冷静的把文章写完，没心没肺才能活得不累！

喝酒耍酒疯的人最没品，垃圾！

致各位亲