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可以將字符串中雙字節字符轉成單字節字符。卽將字符串轉換爲半角