office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Excel VBA 判断字符串是否包含中文字符

2020-04-18 08:00:00
tmtony8
原创
306

Excel可以利用vba代码做很多操作无法实现的功能。

这里分享一个自定义的函数,判断单元格中的字符是否包含中文字符。如果是返回true,如果否返回false

Function StrWithChinese(StrChk As String) As Boolean
    StrChk = VBA.StrConv(StrChk, vbNarrow) 
    StrWithChinese = IIf(Len(StrChk) < LenB(StrConv(StrChk, vbFromUnicode)), True, False)
End Function



调用单元格的对象,运行该函数,可以发现在sheet1工作表中的A7没有包含中文字符


工作表sheet1中的A8包含了中文字符


其中:StrConv可以将字符串中双字节字符转成单字节字符。即将字符串转换为半角

    分享