Question

我是VBA的新手。我有大约20张excel文件。这些工作表中的公式以“ = cc.f”开头（ibm cognos）。我想在整个工作簿中计算（使用vba）这些公式，并将公式的总数返回给我。

谢谢！

Answer 1

感谢显示方向：我现在有了一些解决方法，首先找到带有cc.f的公式，然后用“ XYZ”代替它，然后计数。这可以更快，但我不知道如何。除了我的代码之外，计数只计算一张纸，而不是全部纸。

Sub Countccf()

Dim oCell As Range
Dim oSh As Worksheet
Dim iVal As Integer

On Error Resume Next
For Each oSh In Worksheets
For Each oCell In oSh.UsedRange.SpecialCells(xlCellTypeFormulas)
If InStr(oCell.Formula, "cc.f") > 0 Then
oCell.Replace what:="*cc.f*", Replacement:="XYZ"

End If
Next
Next

iVal = Application.WorksheetFunction.CountIf(Range("A1:ZZ65012"), "XYZ")
MsgBox iVal

End Sub

Answer 2

您可以将工作表CountIF公式用作VBA中的函数

Range("Output Cell").Value = Application.WorksheetFunction.COUNTIF(Range("Your Range"),"*=cc.f*")

目前正在关闭手机，因此无法测试它是否正常运行，但是在您摆弄了一下之后应该可以解决问题。我建议在此处查询一些CountIF VBA问题，很多人对此发布了许多创造性的方法

计算工作簿中特定公式的数量

2 个答案: