Example
- Example 1
Sub shishi()
Range("I2") = LenB(A2)
Range("J2") = LenB("A2")
Range("K2") = LenB(Range("A2"))
Range("L2") = [LenB(A2)]
Range("M2") = Evaluate("LenB(A2)")
Range("I3") = LenB(A3)
Range("J3") = LenB("A3")
Range("K3") = LenB(Range("A3"))
Range("L3") = [LenB(A3)]
Range("M3") = Evaluate("LenB(A3)")
Range("I4") = LenB(A4)
Range("J4") = LenB("A4")
Range("K4") = LenB(Range("A4"))
Range("L4") = [LenB(A4)]
Range("M4") = Evaluate("LenB(A4)")
End Sub
- Example 2
Range("A1") = 10
a = LenB(A1)
b = [LenB(A1)]
c = LenB(Range("A1"))
结果a,b,c分别为0 2 4
a是vba函数lenb,计算空变量 A1 占用的字节数,因为 变量 A1是空的,所以返回0;
b是相当于工作表中的公式,工作表函数返回文本字符的字节数,1和0是两个单字节字符,所以返回2;
c是vba函数lenb,计算单元格内的值10,相当于计算一个变体类型的临时变量,然后返回占用的字节数4。
Tips:
LEN返回文本串的字符数。LENB返回文本串中所有字符的字节数 。
VBA规定表达式的中括号[]
内不能有变量,可以用Evaluate
很好的替代,方便加入变量。当加上[]
或Evaluate
,VBA中的LenB将双字节字符按照2计数。
Note:
VBA有自带的lenb函数,和工作表中的lenb函数计算规则不一样。