Função que Identifica se Há Valores Repetidos em Um Intervalo

Comemoração 100 POSTS
Comemoração 100 POSTS
14 de janeiro de 2011
Gráfico de Frequência Excel
Gráfico de Frequência Excel
19 de janeiro de 2011

Objetivo: Função VBA que identifica se em uma lista de valores existem apenas valores repetidos ou não.


//

Lomadee, uma nova espécie na web. A maior plataforma de afiliados da América Latina.

 

Esta função identifica se na seleção de dados existem valores repetidos, interessante o uso do For Each na varredura dos dados e objeto collection.

Para determinar esta função como global você pode seguir os passos do artigo Criando Funções Próprias Globais.

'Função que identifica se há repetidos
Public Function lfRepetidos(ByVal lRange As Range, _
                            ByRef lResultadoPositivo As Variant, _
                            ByRef lResultadoNegativo As Variant) As Variant

    'Ao ocorrer um erro ele continua do próximo registro por este tratamento de erro
    On Error Resume Next

    'Recalcula esta função ao ser alterado qualquer informação na planilha
    Application.Volatile

    'Determina as variáveis
    Dim lCel    As Range
    Dim lUnicos As New Collection
    Dim lQtde   As Long

    'Identifica a quantidade de células que possui o intervalo
    lQtde = lRange.Rows.Count * lRange.Columns.Count

    'Realiza a varredura de todos os dados do Range de células
    For Each lCel In lRange
        'Adiciona um objeto a coleção, sendo que o valor do segundo argumento deve ser único,
        'e portanto caso haja repetição de dados ele passará ao próximo registro
        lUnicos.Add lCel.Value, CStr(lCel.Value)
    Next lCel

    On Error GoTo 0

    If lQtde > lUnicos.Count Then
        lfRepetidos = lResultadoNegativo
    Else
        lfRepetidos = lResultadoPositivo
    End If
End Function

Exemplo de uso da função: =lfRepetidos(A2:E2;”Não”;”Sim”).

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

2 Comentários

  1. Alexandre Manzini disse:

    Olá, muito interessante esta função para identificar valores repetidos em um intervalo. Tenho uma planilha que preciso verificar se haverão dados repetidos, são 4 informações: número de nota fiscal, data, cliente e valor. Como faço para verificar?

    • Marcos Rieper disse:

      Bom dia Alexandre,

      Concatene estes valores para criar uma chave única e depois aplique a função. use &

      Se o caso for só excluir os repetidos você pode ir em Dados->Remover Duplicatas e os dados ficarão únicos.

      At.

      Marcos Rieper

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.