VBA 部分字符串 CountIf 在单元格公式内（不是值）

Question

所以我有一个工作表，其中有一堆链接的单元格设置为 UNC 路径。 例如，假设单元格 A1 等于：

='\\corp\StackOverflow\[Example01.xlsx]TestSheet'!$A$1

单元格 A2 等于：

='\\corp\StackOverflow\[Example02.xlsx]TestSheet'!$A$1

有没有办法为整个工作表的“StackOverflow”的部分字符串设置 CountIf？ 它会返回一个 2。

Sub Search()
    Dim r As Range, s As String, i As Long
    Dim ws As Worksheet

    s = "StackOverflow"

        For Each ws In ActiveWorkbook.Worksheets
            Set r = ws.Cells
            i = Application.WorksheetFunction.CountIf(r, "*" & s & "*")
            MsgBox ("i: " & i)
        Next ws
End Sub

这就是我正在使用的，但它总是返回 0，因为我认为它只查看值。 我希望它查看公式内部（即使该单元格通常返回 #REF.error），是的，如果它可以查看整个工作表的单元格。 因为我想在 For Each ws 的基础上使用它。

Answer 1

可以在公式单元格的文本中搜索特定字符串并增加计数器。

Sub Search()
    Dim r As Range, s As String, i As Long
    Dim ws As Worksheet

    s = lcase("StackOverflow")

        For Each ws In ActiveWorkbook.Worksheets
            For Each rng In ws.Cells.SpecialCells(xlCellTypeFormulas)
                If LCase(rng.Formula) Like "*" & s & "*" Then i = i + 1
            Next
        Next ws
        MsgBox ("i: " & i)
End Sub