用VBA统计字符串中的中文字个数

用VBA统计字符串中的中文字个数

' 统计中文字的个数
' 作者：朱亦文
' 日期：2006.01.05
Function CountZh(ByVal sZh As String) As Integer
    Dim re As New RegExp
    Dim matches As MatchCollection
    
    re.Pattern = "[\u4e00-\u9fa5]"
    re.Global = True
    re.IgnoreCase = True
    Set matches = re.Execute(sZh)
    
    CountZh = matches.Count
    Set re = Nothing
End Function

请引用Microsoft VBScript Regular Express 5.