Como localizar entradas duplicadas de uma coluna utilizando uma macro do Excel 2000

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática… erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 213355
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
Para obter uma versão de Microsoft Excel 97 deste artigo, consulte 142591.
Sumário
O Microsoft Visual Basic for Applications macro de exemplo neste artigo localiza entradas de células duplicado numa coluna e altera a cor da célula que contém a entrada duplicada para vermelho.
Mais Informação
Microsoft fornece exemplos de programação ilustração só, sem garantia expressa ou implícita, incluindo, sem limitação, garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas.
Se dispõe de limitada experiência de programação, poderá contactar um Microsoft Certified Partner ou a serviços de aviso. Para obter mais informações, visite estes Web sites da Microsoft:

Microsoft certificado Partner - https://partner.microsoft.com/global/30000104

Serviços Microsoft aviso - http://support.microsoft.com/gp/advisoryservice

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como contactar a Microsoft, visite o seguinte Web site da Microsoft: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Para a macro para funcionar correctamente, certifique-se que foram satisfeitas as seguintes condições:
  • Coluna em que pretende localizar duplicados tiver sido ordenados baseado nos valores nessa coluna.

    - e -
  • Está seleccionada a primeira célula da coluna em que pretende localizar duplicados.

Código de Visual Basic de exemplo

Sub FindDups ()   '   ' NOTE: You must select the first cell in the column and   ' make sure that the column is sorted before running this macro   '   ScreenUpdating = False   FirstItem = ActiveCell.Value   SecondItem = ActiveCell.Offset(1, 0).Value   Offsetcount = 1   Do While ActiveCell <> ""      If FirstItem = SecondItem Then        ActiveCell.Offset(Offsetcount,0).Interior.Color = RGB(255,0,0)        Offsetcount = Offsetcount + 1        SecondItem = ActiveCell.Offset(Offsetcount, 0).Value      Else        ActiveCell.Offset(Offsetcount, 0).Select        FirstItem = ActiveCell.Value        SecondItem = ActiveCell.Offset(1,0).Value        Offsetcount = 1      End If   Loop   ScreenUpdating = TrueEnd Sub				
XL2000 repetição dupla

Aviso: Este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 213355 - Última Revisão: 12/05/2015 12:10:35 - Revisão: 3.6

Microsoft Excel 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbsample kbdtacode kbhowto kbinfo kbprogramming KB213355 KbMtpt
Comentários