office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

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

2020-04-18 08:00:00
tmtony8
原創
305

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

    分享