[pt-br-discussao] Remover duplicatas no Calc

classic Classic list List threaded Threaded
1 message Options
DenisDobbin DenisDobbin
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[pt-br-discussao] Remover duplicatas no Calc


Meus caros, preciso de uma ajuda com macros para Calc O MS-Excel possui um recurso de dados chamado "Remover duplicatas". Esse recurso mantem o primeiro registro e apaga os registros seguintes que possuem o valor de um determinado campo em duplicata.
Não localizei recurso semelhante no Calc e, por isso, criei uma rotina. O problema é que, como não domino a estrutura da linguagem utilizada no Calc, criei essa rotina em VBA.Agradeceria muito se alguém pudesse converter esse código para que eu possa incluir no Calc.
Segue a rotina em VBA
Sub RemoverDuplicata()Dim ul, r As Long    'armazena a última linha com a primeira coluna ocupada    ul = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    For r = ul To 2 Step -1        If Cells(r, 1).Value = Cells(r - 1, 1).Value Then            'Remove o registro deslocando as celulas inferiores para cima            ActiveSheet.Range(Cells(r, 1), Cells(r, 3)).Delete shift:=xlUp        End If    Next rEnd Sub

Denis Dobbin
-------------------

--
Você está recebendo e-mails da lista [hidden email]
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para [hidden email]
# Cancelar sua assinatura: mande e-mail vazio para:
  [hidden email]
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/discussao/
Loading...