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