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

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可以将字符串中双字节字符转成单字节字符。即将字符串转换为半角