Какой самый быстрый способ найти первую формулу в диапазоне Excel с VBA?

Question

Есть ли более быстрый метод, чем использование для l oop для нахождения первого экземпляра формулы в ячейке?

For Each dc In .Worksheets("testWS").Range(searchRange)
    If dc.hasFormula() = True Then
        formulaRow = Split(dc.Address, "$")(2)
        formula = dc.formula
        Exit For
    End If
Next

Answer 1

Нет л oop необходимо - используйте Range.SpecialCells. Включите обработку ошибок, так как может не быть ячеек с формулами.

On Error Resume Next
Dim formulaRng As Range
Set formulaRng = .Worksheets("testWS").Range(searchRange).SpecialCells(xlCellTypeFormulas)
On Error GoTo 0

If Not formulaRng Is Nothing Then
    Debug.Print formulaRng.Cells(1).Row
    Debug.Print formulaRng.Cells(1).Formula
End If

Answer 2

Function FindFirstFormulaRow(ByRef rng As Range) As Long

    Dim arrFormulas As Variant

        Set arrFormulas = rng.SpecialCells(xlCellTypeFormulas)    
        Set rng = arrFormulas

            If Not rng Is Nothing Then
                FindFirstFormulaRow = Split(rng.Cells(1).Address, "$")(2)
                Set rng = rng.Cells(1)
            End If
End Function`