Excel公式 + VBA小程序--获取单元格里面出现多少个字符（也就是统计字符串中出现相同字符的次数）区分大小写

最新推荐文章于 2024-06-13 19:03:05 发布

原创最新推荐文章于 2024-06-13 19:03:05 发布 · 2.8k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel #office #微软 #wps

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一种使用VBA小程序和Excel公式来统计字符串中特定字符出现次数的方法。通过公式=LEN(A2)-LEN(SUBSTITUTE(A2,B2,))计算源字符串中目标字符的数量，并提供了VBA代码实现。

源字符	含有多少个这样的字符	VBA结果	公式实现
HelloWorld	O	0	0
HelloWorld	o	2	2
HelloWorld	l	3	3

先说公式：

=LEN(A2)-LEN(SUBSTITUTE(A2,B2,""))

也就是获取长度 - 替换后的长度，这样就可以得到一共多少个字符

其中涉及的LEN函数，以及SUBSTITUTE函数，大家可以百度一下，很多的，随便看看就会了~

再说VBA 程序，代码如下：

Sub VBA小程序_获取单元格里面出现多少个字符()
    For i = 2 To 4
        'Cells(i, 3).Value = UBound(Split(Cells(i, 1), Cells(i, 2))) 我是注释，也可以这样写~
        Range("C" & i).Value = UBound(Split(Range("A" & i), Range("B" & i)))
    Next
End Sub

下面是为了加深理解，从而做的一些测试代码段，有兴趣的可以看看，没兴趣的直接忽略就好

'Sub test_1()
'    MsgBox (UBound(Split("HelloWord", "l")))
'End Sub
'
'Sub test_2()
'    Dim arr, str
'    '理解Split的真正意义，函数返回一个数组，其中包含基于分隔符分割的特定数量的值。
'    'arr = Array(Split("HelloWord", "l"))    '这种写法是不对的，因为他本身返回的就是数组
'    arr = Split("HelloWord", "l")
'    For Each str_1 In arr
'        MsgBox (str_1)
'    Next
'End Sub