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

Excel可以利用vba代碼做很多操作無法實現(xiàn)的功能。

這里分享一個自定義的函數(shù)，判斷單元格中的字符是否包含中文字符。如果是返回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

調(diào)用單元格的對象，運行該函數(shù)，可以發(fā)現(xiàn)在sheet1工作表中的A7沒有包含中文字符

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

其中：StrConv可以將字符串中雙字節(jié)字符轉(zhuǎn)成單字節(jié)字符。即將字符串轉(zhuǎn)換為半角