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代码的结果完全相符。
Sub A列字符个数()
MsgBox Application.CountA(Range("a:a")) * 6
End Sub