统计某个字符的出现次数

作者：绿色风分类：时间：2022-08-18 浏览：78

楼主 wise	统计一个字符串中的某个字符的出现次数,比如"dtauddnftajmdhhgg" 的d出现4次,应该怎样VBA编程？法一： Sub b() Dim Q$, i%, j% Q = "dtauddnftajmdhhgg" For i = 1 To Len(Q) If Mid(Q, i, 1) = "d" Then j = j + 1 Next MsgBox j End Sub 法二： Sub c() Dim Q$ Q = "dtauddnftajmdhhgg" MsgBox Len(Q) - Len(Replace(Q, "d", "")) End Sub
2楼 willin2000	Sub CntChr() Q = "dtauddnftajmdhhgg" MsgBox UBound(Split(Q, "d")) End Sub
3楼 gvntw	上面的方法都是区分大小写的，如果不区分，可以先把字符串转换为全部大写或小写（UCase$ LCase$）。
4楼 wise	转换大小写也可以用大写转换：format("EEEEyyyhqtweg",">@") 小写转换：format("EEEEyyyhqtweg","<@")
5楼 freeliu	要是有多个字符统计怎么办呢？
6楼 wise	啊，原来标题哥收录的东西在我的回答中
7楼 amulee	这样也可以的啊

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表