怎样使用VBA统计选区中文本与字母、数字个数？

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调出运行宏窗口，然后单击“执行”按钮，程序将弹出一个消息框提示选区中的各种字符数目