如上图所示的Excel文本内容,统计出字母‘a‘的个数
Sub test() Dim regexp As New regexp, mat, rng, cnt With regexp .Global = True .IgnoreCase = True .Pattern = "a" For Each r In [b1:b4] Set mat = .Execute(r) cnt = cnt + mat.Count Next MsgBox "一共包含" & cnt & "个A" End With End Sub
时间: 2024-08-18 07:50:07