在自定义函数中,Lenb()得出错误的结果,不知是何原因?

剑与星

事情的缘起是要做一个从身份证号码中获取信息的自定义函数,起了个GetID的函数名,在函数中使用Lenb函数来判断身份证号码是否是18位或15位(用Len函数算出的是汉字或全角字符数),但得出的位数竟然是实际位数的2倍,在单元格中用公式: =lenb(a1) 来计算,得出的又是正确的位数,同一个数据在不同的地方用同一个函数竟然是不同的结果,这是什么原因呢?
调试过程中,GetID函数中就只有一条语句:  GetID=lenb(ID)    还是2倍的位数.为了参数正确,甚至把参数ID直接写成测试的数字文本,还是不对,真把我搞疯了.

剑与星

原来VB和EXCEL处理字符用的是不同编码体系。VB中要指定下编码就可以了。