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

Question

只有http://pan.baidu.com/s/1kT46yhT

Answer 1

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列，看一下右下角的自动求和显示的值。

Answer 2

Sub A列字符个数()

    MsgBox Application.CountA(Range("a:a")) * 6

End Sub

追问

结果错误的，A1单元格也有11个，逗号也要计算，

追答

如果逗号也计算，只需将代码中的【6】改为【11】即可。