请教，使用Excel VBA如何计算某一单元格中汉字的个数？

Question

如题所述

Answer 1

Function GetHanziGeShu(rng As Range) As Long
    Dim L As Long
    Dim S As String
    Dim i As Long
    S = (rng)
    L = Len(S)
    For i = 1 To L
        If Asc(Mid(S, i, 1)) < 0 Then GetHanziGeShu = GetHanziGeShu + 1
    Next
End Function

Answer 2

LENB(String)-LEN(String)追问

我用的是这个方法
可是为什么不对呢？
比如我输入了“计算机编程123”
结果却是16-8=8
应该是13-8=5
请您再指导下啊

追答

好吧 lenb 在公式中可以识用，在VBA中要对string 型先处理一下，
lenb(StrConv(String, vbFromUnicode))-len(string)

本回答被提问者采纳