VBA Excel - Contar células que contenham Fórmulas, Texto, ou Números - Count Cells That Contain Formulas, Text, or Numbers

Termo de Responsabilidade

No Excel, podemos contar o número de células que contém fórmulas, texto ou números, usando a caixa de diálogo Go To Especial para selecionar as células e então executar um código que conta o número das células selecionadas. 

E onde é que vou usar isso? Por exemplo, pode ser útil quando a criação de uma tabela e você desejar saber se cada linha em uma coluna de resumo tem uma fórmula, sem averiguar manualmente cada linha.

Sub Count_Selection()

    Dim cell As Object

    Dim count As Integer

    count = 0

    For Each cell In Selection

        count = count + 1

    Next cell

    MsgBox  count & " item(s) selecionado(s)"

End Sub

Reference: 

Tags: VBA, Excel, count, selected, contar, células