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

 时间:2024-10-11 21:01:59

1、首先在开发工具中打开VBA编辑器

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

2、在单元格区域当中输入一些内容作为例子

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

3、在VBA编辑器中插入模块

怎样使用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

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

5、选中待统计区域,使用快捷键Alt+F8调出运行宏窗口,然后单击“执行”按钮,程序将弹出一个消息框提示选区中的各种字符数目

怎样使用VBA统计选区中文本与字母、数字个数
  • Excel 2007中,VBA开发工具中Combobox的使用
  • VBA中LIKE语句之应用
  • Excel中如何利用VBA查找工作表
  • excel中使用vba提取所有工作薄名称的方法
  • 怎样使用VBA工作表激活事件的运用?
  • 热门搜索
    向国旗敬礼手抄报内容 手抄报主题 有关食品安全的手抄报 迎接期中考试手抄报 关于运动的手抄报 手抄报的图片 人防手抄报 手抄报素材 美德少年手抄报图片 我心中的红十字手抄报