word vba 如何查找出一个字符串中包括了多少个指定子字符串？

Sub at()

aaaa = "ASDFSF。ASDF。SDF。234。'XCV。d"

'第1种方法
bbb = Replace(aaaa, "。", "")
cccc = Split(aaaa, "。")
CS1 = Len(aaaa) - Len(bbb)


'第2种方法
CS2 = UBound(Split(aaaa, "。"))

End Sub

第1种方法，主要使用了replace函数和len函数。

对比替换前后的字符串的长度差值，该差值即是。

第2种方法：

使用split函数后，用ubound函数求出得到数组的上标数值。

该上标值即是。