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

最新推荐文章于 2024-05-30 19:00:22 发布

weixin_41706566

最新推荐文章于 2024-05-30 19:00:22 发布

阅读量6.1k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： vba 字符串处理文章标签： vba 字符串处理

本文链接：https://blog.youkuaiyun.com/weixin_41706566/article/details/94490596

vba 同时被 2 个专栏收录

8 篇文章

订阅专栏

字符串处理

2 篇文章

订阅专栏

本文介绍了一种使用VBA在Excel中判断字符串是否包含中文字符的方法。通过StrConv函数转换字符串，比较转换前后长度变化来识别中文字符。文章详细解释了StrConv函数的用法及其参数设置。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

Function StrWithChinese(StrChk As String) As Boolean
	StrChk = VBA.StrConv(StrChk, vbNarrow) '将字符串转换成半角
	StrWithChinese = IIf(Len(StrChk) < LenB(StrConv(StrChk, vbFromUnicode)), True, False)
End Function

注：StrConv的用法
返回按指定类型转换的 Variant (String)。
语法
StrConv(string, conversion, LCID)
StrConv 函数的语法有下面的命名参数：
部分说明
string 必要参数。要转换的字符串表达式。
conversion 必要参数。Integer。其值的和决定转换的类型。
LCID 可选的。如果与系统LocaleID不同，则为LocaleID（系统LocaleID为缺省值。）
设置值
conversion 参数的设置值为：
常数值说明
vbUpperCase 1 将字符串文字转成大写。
vbLowerCase 2 将字符串文字转成小写。
vbProperCase 3 将字符串中每个字的开头字母转成大写。
vbWide* 4* 将字符串中单字节字符转成双字节字符。
vbNarrow* 8* 将字符串中双字节字符转成单字节字符。
vbKatakana** 16** 将字符串中平假名字符转成片假名字符。
vbHiragana** 32** 将字符串中片假名字符转成平假名字符。
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。
vbFromUnicode 128 将字符串由 Unicode 转成系统的缺省码页。