Re: [pt-br-usuarios] Remover duplicatas no Calc

 Oi Denis, eu conheço esta maneira:

 * Selecione uma célula da tabela
 * Dados / Mais filtros / Filtro padrão...
 * Nome do campo ( aqui define o que quer ou não )
 * Mais opções
 * [x] Sem duplicação
 * [X] Copiar resultado para... (indicar local para cópia )
 * Ok


DenisDobbin Thu, 09 Jun 2016 14:54:06 -0700

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





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