vba学习系列(5)--指定区域指定字符串计数

系列文章目录

---

前言

一、需求背景

想知道所有客诉项目里面什么项目最多，出现过多少次。

二、vba自定义函数

1.引入库

引用：
=CountCharInRange(区域,“字符串”)

Function CountCharInRange(rng As Range, charToCount As String) As Long
    Dim cell As Range
    Dim charCount As Long
    charCount = 0
    
    For Each cell In rng
        charCount = charCount + Application.WorksheetFunction.CountIf(cell, "*" & charToCount & "*")
    Next cell
 
    CountCharInRange = charCount
End Function

---

总结

分享：

我们可能不知道如何原谅，我们可能也不愿意去原谅，但事实是，当我们说出我们愿意去原谅的时候，我们心灵的治愈就已经开始了–《生命的重建》