| Autor |
Mensagem |
som
Veterano |
# Enviado: 14/out/07 19:00
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 |
# Enviado: 14/out/07 19:05
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 |
# Enviado: 14/out/07 21:40 · 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
|
