VBA 如何判断字符串中是否包含指定的中文

Question

VBA处理文本文件，目标txt文件中同时包含英文和中文，针对字符串是否包含指定的字符串，使用InStr函数，英文没有任何问题，如：
InStr(txt, "Monday")
但中午就无法成功，如：
InStr(txt, "星期日")

不知大师们是否有好的方法？感谢！

Answer 1

Function StrWithChinese(StrChk As String) As Boolean StrChk = VBA.StrConv(StrChk, vbNarrow)'将字符串转换成半角 StrWithChinese = IIf(Len(StrChk) < LenB(StrConv(StrChk, vbFromUnicode)), True, False) 'VBA中默认英文字符串都是Unicode，双字节，如果转化为vbFromUnicode就变成单字节，汉字还是双字节，如果转换之前的字符长度与转化之后的字节长度相等（LenB是计算字符的字节长度的函数），说明不含中文字符，反之含有中文字符。 End Function Sub check() Debug.Print StrWithChinese("中文Excel应用论坛") Debug.Print StrWithChinese("ExcelHome Forum") End Sub 上述方法在VBA中和自定义工作表函数都可以使用。 Function StrWithChinese(StrChk As String) As Boolean StrChk = VBA.StrConv(StrChk, vbNarrow)