weixin_43735255的博客

新建vba模块，在模块中插入下面代码，a为要查找的文字 Function calNum(a) Dim msg As String Dim sum As Integer sum = 0 For j = 1 To 188 sum = sum + Application.WorksheetFunction.CountIf(Sheets(j).UsedRange, a) Next ca...