[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 discussao@pt-br.libreoffice.org
# Informações sobre os comandos disponíveis (em inglês):
  mande e-mail vazio para discussao+unsubscribe@pt-br.libreoffice.org
# Cancelar sua assinatura: mande e-mail vazio para:
  discussao+unsubscribe@pt-br.libreoffice.org
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/discussao/