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