Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Eliminando duplicad...
 
Notifications
Clear all

Eliminando duplicadas

 
2024 - VBA & Macros
Post Recente por cleiton jm 10 anos atrás
2 Posts
2 Usuários
0 Reactions
981 Visualizações
RSS
 Scharles
(@scharles)
Posts: 1
New Member
Topic starter
 

Olá Pessoal,
Estou desenvolvendo uma projeto, que capta informações descritivas, onde diversas pessoas poderão responder.
Estou necessitando eliminar as duplicidades antes de gerar um relatório.

Gravei a macro:

Sub removerduplicadas()

' removerduplicadas Macro

Columns("A:A").Select
ActiveSheet.Range("$A$1:$A$15").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Necessito aplicar até que
Do Until Sheets("RESP_GOSTO").Cells(1, coluna_ini) = ""

Necessito alterar o que na macro gravada???
Preciso colocar em loop???

Agradeço desde já.

 
Postado : 16/11/2014 4:47 pm
cleiton jm
 cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
 

Onde encontrar registros repetidos na coluna A são deletados:

Sub RemoveDuplicados()

    Cells.Sort Key1:=Range("A1")
    totalrows = ActiveSheet.UsedRange.Rows.Count
    For Row = totalrows To 2 Step -1
        If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
            Rows(Row).Delete
        End If
    Next Row
    
End Sub
 
Postado : 16/11/2014 5:30 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico