VBA 单元格含有特殊字符个数单分类
如果要统计某单元格中指定的某特定字符的数量，可以使用LEN/SUBSTITUTE函数组合的经典公式（假设字符串位于单元格B2）：
=LEN(B2)-LEN(SUBSTITUTE(LOWER(B2),"f",""))
如果要统计单元格区域（示例中为单元格区域B2:B5）中包含指定的某特定字符的数量，可以使用下面的公式：
vba 字符串函数
=SUMPRODUCT(LEN(B2:B5)-LEN(SUBSTITUTE(LOWER(B2:B5),"f","")))
如果将上述两种情况使用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”为分隔符对字符串拆分，拆分后获得的数组上限值与字符数相等。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。