标签：VBA，Split函数
如果要统计某单元格中指定的某特定字符的数量，可以使用LEN/SUBSTITUTE函数组合的经典公式（假设字符串位于单元格B2）：
=LEN(B2)-LEN(SUBSTITUTE(LOWER(B2),"f",""))
示例如下图1所示。
图1
如果要统计单元格区域（示例中为单元格区域B2:B5）中包含指定的某特定字符的数量，可以使用下面的公式：
=SUMPRODUCT(LEN(B2:B5)-LEN(SUBSTITUTE(LOWER(B2:B5),"f","")))
示例如下图2所示。
图2
如果将上述两种情况使用VBA来实现，应该如何编写代码呢？
也很简单。
如果要统计单元格B2中字符“f”的数量，使用代码：
UBound(Split(LCase(Range("B2")),"f"))
代码使用Split函数以字母“f”为分隔符对字符串拆分，拆分后获得的数组上限值与字符数相等。
如果要统计单元格区域B2:B5中字符“f”的数量，使用代码：
UBound(Split(LCase(Join(WorksheetFunction.Transpose(Range("B2:B5")))),"f"))
代码使用Join函数将单元格区域中的字符串联接，然后使用Split函数以字母“f”为分隔符对字符串拆分，拆分后获得的数组上限值与字符数相等。
有兴趣的朋友可到知识星球App的完美Excel社群下载示例文档。
相关参考：
示例详解VBA的Split函数
Split函数与Join函数
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
