Fórum Cifra Club - maior fórum de m&uacite;sica do Brasil

Sair
Notificações Amigos pendentes

      > >

      Excluir valores repetidos numa coluna do EXCEL

        Autor Mensagem
        som
        Veterano        		 # out/07


        Na coluna "A" há uma lista de nomes e/ou de valores:

        121
        batata
        784
        121
        carro
        bola
        rádio
        121
        batata
        carro

        Preciso excluir os valores repetidos, para que ocorram apenas uma vez na coluna. No exemplo acima "121" aparece três vezes, teriam de ser apagadas duas ocorrências, mantendo apenas uma. "Batata" e "carro" aparecem duas vezes, cada um seria excluído uma vez, para que ficasse uma única ocorrência de cada valor na lista. Com a exclusão dos repetidos, a lista ficaria assim:

        121
        batata
        784
        carro
        bola
        rádio

        As listas verdadeiras que tenho são muito extensas, milhares de linhas, por isso preciso automatizar essa verificação.

        Como fazer isso?

        Obrigado

        Jack Holland
        Veterano        		 # out/07
        · votar

        som

        Boa pergunta...
        Tenta fazer usando filtros.
        Tipo, manda aparecer só os "121", deleta do segundo pra baixo, e vai fazendo isso com os outros...

        som
        Veterano        		 # out/07 · Editado por: som
        · votar

        Encontrei o que precisava, este macro:

        Sub excluir()
        For linha = 1 To 30
        procurado = Cells(linha, 5).Value
        'procurar na coluna E da linha 2 até a 32
        With ActiveSheet.Range(Cells(linha + 1, 5), Cells(32, 5))
        Set C = .Find(procurado, Range("E32"), LookAt:=xlWhole, LookIn:=xlValues)
        If Not C Is Nothing Then 'se foi encontrado conteúdo igual
        primeiroEndere = C.Address
        Do
        If C.Value <> "" Then
        C.Interior.ColorIndex = 4 'pintar célula de verde
        End If
        Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> primeiroEndere
        End If
        End With
        Next linha
        'excluir linhas com células pintadas de verde
        For y = 1 To 32
        li = 33 - y
        If Cells(li, 5).Interior.ColorIndex = 4 Then
        Rows(li).Delete
        End If
        Next y
        End Sub

        fonte: http://info.abril.com.br/forum/forum.php?topico=581531

          Enviar sua resposta para este assunto
                  Tablatura   
          Responder tópico na versão original
           

          Tópicos relacionados a Excluir valores repetidos numa coluna do EXCEL