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

只有http://pan.baidu.com/s/1kT46yhT
2025-03-07 02:11:22
推荐回答(2个)
回答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代码的结果完全相符。

回答2:

Sub A列字符个数()

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

End Sub