EXCEL高手用VBA统计A列字符个数

EXCEL高手用VBA统计A列字符个数

Sub 按钮1_单击()
Dim a%, c%, l%
     For a = 1 To Application.CountA([a:a])
           Set b = Cells(a, 1)
           c = Len(b)
            l = l + c
     Next a
          Range("b1") = l
End Sub




我用工作表函数做了，结果也为11550个字符，和VBA代码的结果完全相符。
追问工作表函数如何做追答b1=len（a1），然后向下拖到复制公式，选中b列，看一下右下角的自动求和显示的值。

Sub A列字符个数()
    MsgBox Application.CountA(Range("a:a")) * 6
End Sub追问结果错误的，A1单元格也有11个，逗号也要计算，追答如果逗号也计算，只需将代码中的【6】改为【11】即可。