|
 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.
|