Excluir Linhas Duplicadas

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.

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

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

Excluir Linhas Duplicadas

Codigo para excluir linhas duplicadas em coluna ordenada.

Pesquisar

Tags