Views

Histats

Vitrine

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,

Inline image 1

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias