1、本教程以下列数据为例。

3、按下快捷键Alt+F11进入VBA窗口。PS:其他进入VBA的方式可以参考以下链接:

5、在模块窗口复制粘贴以下代码:Sub Number()Dim m%, n%, k%, s%Dim rng As RangeSet rng = SelectionFor Each rng In Selection m = Len(rng) n = LenB(rng) k = n - m s = s + kNext MsgBox sEnd Sub



1、本教程以下列数据为例。
3、按下快捷键Alt+F11进入VBA窗口。PS:其他进入VBA的方式可以参考以下链接:
5、在模块窗口复制粘贴以下代码:Sub Number()Dim m%, n%, k%, s%Dim rng As RangeSet rng = SelectionFor Each rng In Selection m = Len(rng) n = LenB(rng) k = n - m s = s + kNext MsgBox sEnd Sub