Views

Histats

Vitrine

VBA Excel - Excluindo linhas duplicadas em coluna ordenada.

São inesgotáveis as perguntas sobre como excluir linhas duplicadas. Ao executar o código abaixo é necessário que a coluna considerada esteja 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


Vejam outras várias sugestões...
Blog Excel
Blog Access
Blog Office



✔ VBA Brazil®

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