Iniciar sessão com a Microsoft
Iniciar sessão ou criar uma conta.
Olá,
Selecione uma conta diferente.
Tem várias contas
Selecione a conta com a qual pretende iniciar sessão.

Pode utilizar os seguintes métodos para comparar dados em duas colunas de folha de cálculo do Microsoft Excel e encontrar entradas duplicadas. 

Método 1: Utilizar uma fórmula de folha de cálculo

  1. Inicie o Excel.

  2. Numa nova folha de cálculo, introduza os seguintes dados como exemplo (deixe a coluna B vazia):

    A

    B

    C

    1

    1

    3

    2

    2

    5

    3

    3

    8

    4

    4

    2

    5

    5

    0

  3. Digite a seguinte fórmula na célula B1:

    =SE(É.ERRO(CORRESP(A1,$C$1:$C$5,0)),"",A1)

  4. Selecione a célula B1 a B5.

  5. No Excel 2007 e versões posteriores do Excel, selecione Preencher no grupo de Edição e, em seguida, selecione Para Baixo.

    Os números duplicados são apresentados na coluna B, como no exemplo seguinte: 

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Método 2: Utilizar uma macro do Visual Basic

Aviso: A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isto inclui, mas não se limita às garantias implícitas de comercialização ou adequação a um fim específico. Este artigo parte do princípio de que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos para cumprir os seus requisitos específicos.

Para utilizar uma macro do Visual Basic para comparar os dados em duas colunas, utilize os passos no exemplo seguinte:

  1. Inicie o Excel.

  2. Prima Alt+F11 para iniciar o editor do Visual Basic.

  3. No menu Inserir, selecione Módulo.

  4. Introduza o seguinte código numa folha de módulo:

    Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("C1:C5")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    ' Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in CompareRange.
    For Each x In Selection
    For Each y In CompareRange
    If x = y Then x.Offset(0, 1) = x
    Next y
    Next x
    End Sub
  5. Prima Alt+F11 para regressar ao Excel.

    1. Introduza os seguintes dados como exemplo (deixe a coluna B vazia):
       

      A

      B

      C

      1

      1

      3

      2

      2

      5

      3

      3

      8

      4

      4

      2

      5

      5

      0

  6. Selecione a célula A1 a A5.

  7. No Excel 2007 e versões posteriores do Excel, selecione o separadorDeveloper e, em seguida, selecione Macrosno grupo Code .

    Nota: Se não vir o separador Programador , poderá ter de o ativar. Para tal, selecione Ficheiro > Opções > Personalizar Frisoe, em seguida, selecione o separador Programador na caixa de personalização do lado direito.

  8. Clique em Encontrar_Correspondênciase, em seguida, clique em Executar.

    Os números duplicados são apresentados na coluna B. Os números correspondentes serão colocados na primeira coluna, conforme ilustrado aqui:

    A

    B

    C

    1

    1

    3

    2

    2

    2

    5

    3

    3

    3

    8

    4

    4

    2

    5

    5

    5

    0

Precisa de mais ajuda?

Quer mais opções?

Explore os benefícios da subscrição, navegue em cursos de formação, saiba como proteger o seu dispositivo e muito mais.

As comunidades ajudam-no a colocar e a responder perguntas, a dar feedback e a ouvir especialistas com conhecimentos abrangentes.

Estas informações foram úteis?

Quão satisfeito está com a qualidade do idioma?
O que afetou a sua experiência?
Ao selecionar submeter, o seu feedback será utilizado para melhorar os produtos e serviços da Microsoft. O seu administrador de TI poderá recolher estes dados. Declaração de Privacidade.

Obrigado pelo seu feedback!

×