Excluir informações...
 
Notifications
Clear all

Excluir informações da coluna

2 Posts
1 Usuários
0 Reactions
700 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!

Por gentileza , alguem poderia me dizer como faço para excluir nº de uma coluna deixando apenas o primeiro.(exemplo se são 3 linhas repetidadas quero que fique o nº apenas da 1º),porem excluir apenas se as linhas forem repetidas caso não permaneça o mesmo.
Tenho o código abaixo porém ele excluir obedecendo apenas a coluna, eu qro que obedeça a linha.

'Excluir nº duplicado na coluna deixando apenas o 1º

Sub blankOutDuplicates()
' Assumindo que o range de dados inicie-se na célula 'C1'

Dim rng As Range

If Range("C1") = "" Then Exit Sub
If Range("C2") = "" Then Exit Sub

Set rng = Range("C1").End(xlDown)

Do Until rng.Row = 1
If rng.Value = rng.Offset(-1).Value Then

rng.ClearContents
End If

Set rng = rng.Offset(-1)
Loop
End Sub

obrigado.

 
Postado : 22/07/2011 10:09 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja :

Código
viewtopic.php?f=10&t=2224

 
Postado : 31/07/2011 7:41 pm