Escola Saberexcel VBA Estudos - o site de quem precisa aprender Macros ms Excel VBA

Esses macro e Função do aplicativo Microsoft Excel VBA(Visual Basic Application), retorna os o total de ítens ou nomes não duplicados, em determinada coluna. Observe que a título didático usei também o VBA(Visual Basic Application) para chamar a função e retornar o valor (totalizando os nomes não duplicados) em mensagem e também direcionado para célula B1 na folha de planilha principal.
Espero que o exemplo possa lhe ser útil. também inserí umas variáveis Constante com finalidade didática.
Fique com Deus, Expedito Marcondes.


Const a = "Escola Saberexcel VBA Estudos®"
Const s = vbInformation

Function ContarValorUnico(Intervalo As Range)
 Dim iValoresUnicos As New Collection
 On Error Resume Next
 
 For Each vCelulas In Intervalo
     iValoresUnicos.Add vCelulas.Value, CStr(vCelulas.Value)
 Next vCelulas
 
 
 On Error GoTo 0
 ContarValorUnico = iValoresUnicos.Count
End Function

'observem que o endereço do intervalo (Range()) área é expandido pela variável (x)
'------
Sub md_chamar_funcao()
Dim X As Integer
 X = Saber1.Range("A" & Application.Rows.Count).End(xlUp).Row
 
[b1] = ContarValorUnico(Range("a1" & ":A" & CStr(X)))
MsgBox "Existem [ " & ContarValorUnico(Range("a1" & ":A" & CStr(X))) & " ] Valores não duplicados ", s, a
End Sub


Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo a função e os macros acima:
Excel planilha vba funcao retorna valores unicos (85.87 KB)