Função para retirar repetidos de célula

Objetivo: Retornar apenas valores sem repetição a partir de uma célula usando uma função criada com VBA.

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


Esta função foi criada para auxiliar o leitor Hélio Santos Júnior em um problema que são retirados dados de planilhas aonde são realizadas várias medições, porém, estas planilhas retornam valores duplicados em determinadas situações e para subir as informações para o sistema da empresa ele precisa que sejam apenas valores sem duplicação.

Para isso foi criada a seguinte lógica:

'Função que identifica se há repetidos
Public Function lfRepetidosB(ByVal lRange As Range, ByVal lSeparador As String) As Variant

    'Esta instrução faz com que ao tentar inserir um valor duplicado na coleção ele pule para o próximo registro
    On Error Resume Next

    'Recalcula a função automaticamente
    Application.Volatile

    Dim lCel     As Range
    Dim lValores As Variant
    Dim lValor   As Variant
    Dim lUnicos  As New Collection
    Dim i        As Long

    i = 0

    'A função split faz com que os valores sejam separados a partir de um determinado separador, no caso do problema apresentado o separador é
    'espaço, " "
    lValores = Split(lRange, lSeparador)

    'O comando For Each varre a coleção de valores, podendo ser utilizado em Variant ou em Collection
    For Each lValor In lValores
        lUnicos.Add lValores(i), CStr(lValores(i))
        i = i + 1
    Next lValor

    On Error GoTo 0

    i = 1

    'Junta as informações e retorna na função
    While i <= lUnicos.Count
        lfRepetidosB = lfRepetidosB + " " + lUnicos.Item(i)
        i = i + 1
    Wend
End Function

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

Para chamar a função você deve passar os seguintes parâmetros:

=lfRepetidosB(Endereço; Delimitador)

Endereço: a célula que você quer retirar os repetidos, deve ser uma única célula.

Delimitador: o campo que separa as informações, no caso do exemplo é ” “. (Espaço)

Exemplo: =lfRepetidosB(A1; ” “)

GUT PPT

Abraço

Marcos Rieper

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

excel vba

SISTEMA DE GESTÃO CONTA AZUL

O Excel é uma plataforma de trabalho muito aberta para servir ao gerenciamento de dados de uma empresa, dado a complexidade e a integração entre as diversas áreas que a compõe. Mas é a melhor para analisar suas informações.

Com a intenção de atender as micro e pequenas empresas a Conta Azul criou um software de gestão aonde você tudo o que você precisa para gerir a sua empresa: Estoque, Vendas, Financeiro e ainda emite Nota Fiscal Eletrônica, tudo isso em um sistema simples de trabalhar, que você acessa pela internet, não há a necessidade de comprar servidores e preocupar-se com backup e atendimento através de 0800.

O preço da ferramenta também chama a atenção, sendo um preço mais do que justo para se ter o controle dos dados e a geração de informações para a análise do seu negócio.

ContaAzul é um software de gestão financeira e fiscal para micro e pequenas empresas. Ele funciona 100% em plataforma web, não necessitando nenhuma instalação ou atualização. Você pode acessar de qualquer lugar e não tem necessidade de comprar nova licença caso troque de computador.

  O Guia do Excel recomenda o Conta Azul no gerenciamento de sua empresa.
Use QR-Code to get this permaking using your Smartphone. QR Code for Função para retirar repetidos de célula

5 Comentários

  1. Hélio Santos Jr disse:

    Marcos muitíssimo obrigado, resolveu minha questão de primeira, já admirava seu trabalho agora mais ainda pela humildade e eficiencia.

    Guia do Excel virou minha página Inicial.

    Abraços!

  2. Lourival disse:

    Existe(Na lista de funções do Excel), alguma que, a partir de uma busca, identifica valores repetidos e retorne apenas os valores não repetidos?

  3. Roberto disse:

    OBRIGADO, OBRIGADO E OBRIGADO, Estava a dias procurando uma solução para um problema como este, e através do yahoo respostas você citou este tópico e nem acredito funcionou que foi uma beleza

  4. jon disse:

    Marcos tenho um problema identico ao do Helio,porém,os itens que se repetem são em celulas diferentes em uma mesma coluna:

    Veja o exemplo abaixo: Preciso totalizar contando apenas uma celula de cada

    10095062
    10095007
    10095007
    10091037
    10091037
    10095072
    10091037
    10091037
    10095082
    10095113

Deixe o seu comentário


 
%d blogueiros gostam disto: