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
Fonte
Andre Luiz – escrito por André Luiz Bernardes