VBA EXCEL - Excluindo linhas duplicadas em coluna ordenada

Termo de Responsabilidade

São inesgotáveis as perguntas sobre como excluir linhas duplicadas. Para a execução do código abaixo é necessário que a coluna esteja ordenada. Poderá até mesmo incluir tal indexação a posteriori. Por enquanto fica como está abaixo:

Sub DelDoubleLine()

Dim nLine As LongDim nString, nRow As StringDim nAdress as String 

Let nLine = 1Let 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).ValueLet 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

Reference::

Tags: VBA, Excel, rows, line,