Excluir Linhas Duplicadas

Códigos Desempenho, Códigos Prontos

Com o advento do excel 2007 em diante o código de excluir linhas duplicadas deixou de ser tão efetivo pois o próprio menu excel oferece soluções para isso.

Excluir Linhas Duplicadas

Entretanto ainda é aplicável para casos de sua planilha ser inteiramente condicionada por codigo vb, ou seja voce não quer depender do mouse para fazer isto.

Para o código funcionar é necessário que a coluna(s) esteja(s) ordenada(s)

Codigo para excluir linhas duplicadas em coluna ordenada.

Sub DelDoubleLine()

   Dim nLine As Long
   Dim nString, nRow As String
   Dim nAdress as String
   Let nLine = 1
   Let nAdress = "B10"
   Range(nAdress).Select
   Let str = Range(nAdress).Value
   Do While Not ActiveCell.Offset(nLine).Value = ""
      If ActiveCell.Offset(nLine).Value = nString Then
         GoSub DeleteRow
      Else
         Let nString = ActiveCell.Offset(nLine).Value
         Let nLine = nLine + 1
      End If
   Loop
   Exit Sub
   DeleteRow:
   Let nRow = nLine + 1 & ":" & nLine + 1
   Rows(nRow).Select
   Selection.Delete Shift:=xlUp
   Range(nAdress).Select
   Return

End Sub

 

Fonte

Andre Luiz – escrito por André Luiz Bernardes