VBA的LenB函数与工作表函数LenB为何有差异以及Excel使用的字符集

没树高

求助各位高人，这有两个我头疼了好几天的问题：
一、VBA里的LenB函数为何会将英文字符返回两字节？

1. Sub Test()
   
2. 
   
3. Dim Str$, i%
   
4. 
   
5. Str = "worse糟糕2a"
   
6.     For i = 1 To Len(Str)
   
7.         Debug.Print "CHAR=" & Mid(Str, i, 1) & "| I= " & i & "|LEN= " & _
   
8.             Len(Mid(Str, i, 1)) & "| LENB=" & LenB(StrConv(Mid(Str, i, 1), vbNarrow))
   
9.    
   
10.     Next i
    
11. 
    
12. End Sub
    

复制代码

以上代码的返回结果如图一。为何数字和英文字母的字节都是2：

图一

问题一：如何在VBA中规避这个麻烦，
从而能像工作表函数Len和LenB的返回效果那样，用来处理含有中文和英文字符串。
（即怎样用VBA中的len和LenB判断某个字符是英文还是中文）
图二是工作表函数的返回结果。

图二

问题二：为何更改EXCEL的编辑语言为英文后工作表函数LenB的返回效果和Len一样了？
（如图三）查了下资料，好像跟什么DBCS、SBCS有关，但不懂其原理。
有什么通俗易懂的Excel字符编码的资料可以推荐一下？谢谢了！

图三

图三

abc123281

vba中带b的函数都是指内存所使用字节数

没树高

abc123281 发表于 2019-7-28 22:46
vba中带b的函数都是指内存所使用字节数

*既然对于len=1的中英文都返回2，那么vba.LenB()的用途是什么？（对于所有string的字节数，都可用Len(string)*2得出了）
您的意思是，vba.len()和vba.lenb()不能像其对应的工作表函数那样判断某个字符是不是中文？

abc123281

你好
vba中调用lenb    结果都返回原字节的2倍   
而函数中的lenb  汉子都算2字节  数字和字母只算1字节
vba中很少调用末尾带b的函数
请测试下面的附件   自然就明白了

ExcelVBA字符编码问题1111.rar (13.66 KB, 下载次数: 21)

2019-7-29 09:05 上传

点击文件名下载附件

没树高

abc123281 发表于 2019-7-29 09:05
你好
vba中调用lenb    结果都返回原字节的2倍   
而函数中的lenb  汉子都算2字节  数字和字母只算1 ...

还是没回答我的第一个问题。正是因为vba中的LenB都返回Len的2倍；在vba中又不能调用工作表函数LenB(即application.worksheetfunction.lenb()不存在）。如果是在vba中判断字符串的某一位是汉字还是英文，不能借助这两个函数。只能用正则表达式或别的办法。

wxhnr

你想要达到什么目的？

松叶落

在VBA中使用 LenB(Strconv("abc你好",vbfromunicode))即可获得预期的结果。
参考这里的解释https://blog.csdn.net/bigheadsheep/article/details/42235239

OKJSJSF

abc123281 发表于 2019-7-28 22:46
vba中带b的函数都是指内存所使用字节数

目前我正好第一次发现这个问题。
表达式 vba.lenb(strconv(activecell,vbfromunicode) 是有用的。