问如果活动单元格没有公式，如何选择活动单元格

EN

Sub FindValue()
    Dim rng As Range, r As Range
    Set rng = Range("A2:A10")
    For Each r In rng
        If r.HasFormula Then
        Else
            r.Select
            Exit Sub
        End If
    Next r
End Sub

   Dim rng As Range, c As Range
   Set rng = Range("A2:A10")
   Set rng = rng.SpecialCells(xlCellTypeConstants) 'only cells without formula
   For Each c In rng.cells
        c.Select
        Debug.Print c.Address 'if you want the first one, put here Exit For
   Next