用VBA统计字符串中的中文字个数 - zhuyiwen - 博客园

来源:百度文库 编辑:神马文学网 时间:2024/06/06 10:04:50
用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.