Excel VBA中Len函数结果异常及相关技术问题咨询

问题1：使用CStr()转换后再用Len是否为正确的解决方案？ #

如果你的需求是获取Integer数值转换成字符串后的字符个数，这个方法完全可行。
比如：

Dim num As Integer
num = 1234
Debug.Print Len(CStr(num)) ' 输出4，对应字符串"1234"的字符数
Debug.Print Len(CStr(-567)) ' 输出4，对应字符串"-567"的字符数

需要注意：负数的负号会被计入字符数，Integer的极值（-32768、32767）转换后也能正确返回对应字符串的长度。如果你的需求不是字符数而是其他，那这个方法就不适用——但根据你描述的“获取数据内容长度”的预期，这个方案是匹配的。

问题2：如何获取字符串或Variant类型变量的占用字节数？ #

字符串类型 #

直接用LenB()函数，它返回字符串的字节存储长度：

• 对于VBA默认的Unicode字符串（每个字符占2字节），LenB(str)的结果等于Len(str)*2
• 如果是ANSI编码的字符串（通过StrConv(str, vbFromUnicode)转换），LenB(str)结果等于字符数
  示例：

Dim unicodeStr As String
unicodeStr = "测试"
Debug.Print Len(unicodeStr) ' 输出2（字符数）
Debug.Print LenB(unicodeStr) ' 输出4（每个Unicode字符占2字节）

Dim ansiStr As String
ansiStr = StrConv("测试", vbFromUnicode)
Debug.Print LenB(ansiStr) ' 输出4（GBK编码下每个汉字占2字节）

Variant类型 #

首先要判断Variant存储的是否为字符串类型，再用LenB()：

Dim varData As Variant
varData = "Hello"
If VarType(varData) = vbString Then
    Debug.Print LenB(varData) ' 输出10（Unicode下5个字符×2字节）
End If

如果Variant存储的是其他类型（比如数值），LenB()会返回该类型的存储字节数，和数值类型用Len()的结果一致。

内容的提问来源于stack exchange，提问作者tueftla