Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Vitrine

+Views

Widgets Mundo Blogger

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

Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias