Excel一键计算所选区域单元格中包含字符的个数

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

2、插入一个形状，作为控制代码按钮。

3、按下快捷键Alt+F11进入VBA窗口。

PS：其他进入VBA的方式可以参考以下链接：

4、进入VBA窗口后，插入一个模块，具体操作方式，如图所示。

5、在模块窗口复制粘贴以下代码：

Sub Number()

 Dim m%, n%, k%, s%

 Dim rng As Range

 Set rng = Selection

For Each rng In Selection

    m = Len(rng)

    n = LenB(rng)

    k = n - m

    s = s + k

Next

    MsgBox s

End Sub

6、关闭VBA窗口，回到Excel界面，然后为步骤2中绘制的形状指定宏。

7、先框选单元格区域，然后点击形状即可计算该区域所含字符个数。