Views

...

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.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

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



eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine