1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Sub 选区字符统计() Dim str As String, ChineseChar As Long, Alphabetic As Long, Number As Long Dim i As Long, rng As Range, j As Long If TypeName(Selection) <> "Range" Then MsgBox "请选择单元格！", 64, "友情提示": Exit Sub For Each cell In Selection j = j + Len(cell.Value) '计算字符总长度 For i = 1 To Len(cell) str = Mid(cell.Value, i, 1) If str Like "[一-龥]" = True Then '汉字 hanzi = hanzi + 1 '汉字累加 ElseIf str Like "[a-zA-Z]" = True Then '字母 ZiMu = ZiMu + 1 '字母累加 ElseIf str Like "[0-9]" = True Then '数字 ShuZi = ShuZi + 1 '数字累加 End If Next Next MsgBox "所选单元格区域中共有字数" & j & "个。" & Chr(10) & "汉字：" & hanzi & "个" & Chr(10) & "字母：" & ZiMu & "个" & Chr(10) & "数字：" & ShuZi & "个" & Chr(10) & "特殊字符及空格:" & j - ZiMu - ShuZi - hanzi & "个。", vbInformation, "字符统计"End Sub
5、选中待统计区域，使用快捷键Alt+F8调出运行宏窗口，然后单击“执行”按钮，程序将弹出一个消息框提示选区中的各种字符数目
