Notificações Amigos pendentes

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

      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

      299.319 tópicos 7.768.877 posts
      Fórum Cifra Club © 2001-2016 Studio Sol Comunicação Digital