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

系列文章目录

---

前言

一、需求背景

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

二、vba自定义函数

1.引入库

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

Function CountCharInRange(rng As Range, charToCount As String) As LongDim cell As RangeDim charCount As LongcharCount = 0For Each cell In rngcharCount = charCount + Application.WorksheetFunction.CountIf(cell, "*" & charToCount & "*")Next cellCountCharInRange = charCount
End Function

---

总结

分享：

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