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
