2 métodos fáceis para evitar valores duplicados em uma coluna no seu Excel

Se você quiser evitar inserir valores duplicados em uma coluna no Excel, consulte este artigo. Aqui vamos compartilhar 2 abordagens simples.

Às vezes, quando você edita uma planilha do Excel, pode querer garantir que os dados em uma coluna sejam exclusivos, ou seja, evitar valores duplicados em uma coluna. Exige que o Excel o alerte automaticamente toda vez que você insere valores duplicados em uma coluna. A seguir, compartilharemos com você 2 meios rápidos para obtê-lo.

Método 1: Prevenir via “Validação de Dados”

1. Primeiro, selecione todas as células em uma coluna específica, como “Coluna A”.
2. Em seguida, vá para a guia "Dados" e clique no botão "Validação de dados" no grupo "Ferramentas de dados".
3. Em seguida, na caixa de diálogo pop-up, na guia “Configurações”, selecione a opção “Personalizar” na lista suspensa de “Permitir”.
4. Depois disso, insira a seguinte fórmula no campo “Fórmula”.

= COUNTIF ($ A $ 1: $ A $ 20, A1) = 1

5. Mais tarde, mude para a guia "Alerta de erro" na caixa de diálogo atual.
6. Posteriormente, você pode personalizar uma mensagem de erro de acordo com suas necessidades, como especificar “Valores duplicados” como título do erro e “O valor foi inserido na mesma coluna!” como mensagem de erro.
7. Por fim, clique em “OK”.
8. Agora, você pode tentar.

• Em primeiro lugar, insira um valor na célula A1.
• Em seguida, insira o mesmo valor na célula A2.
• Imediatamente, você receberá a mensagem de erro, como a captura de tela a seguir.

Método 2: Prevenir com Excel VBA

1. Para começar, acione o editor Excel VBA com referência a “Como executar o código VBA no seu Excel".
2. Em seguida, coloque o seguinte código no projeto de uma planilha, como “Sheet 1 (Sheet 1)”

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strTargetColumn As String
   Dim nTargetRow As Integer
   Dim nLastRow As Integer
   Dim strMsg As String

   strTargetColumn = Split(Target.Address(, False), "$")(0)
   nTargetRow = Split(Target.Address(, False), "$")(1)
   nLastRow = ActiveSheet.Range(strTargetColumn & ActiveSheet.Rows.Count).End(xlUp).Row

   For nRow = 1 To nLastRow
       If nRow <> nTargetRow Then
          If ActiveSheet.Range(strTargetColumn & nRow).Value = Target.Value Then
             strMsg = "The value has been entered in the same column!"
             MsgBox strMsg, vbExclamation + vbOKOnly, "Duplicate Values"
             Target.Select
             Exit For
          End If
       End If
   Next
End Sub

3. Desde então, toda vez que você inserir um valor em qualquer célula, independentemente de qualquer coluna, a macro verificará automaticamente os outros valores na mesma coluna. Se encontrar os mesmos valores, você receberá um alerta, conforme mostrado na figura a seguir.

Comparação

Recupere Dados Preciosos do Excel

O Excel é reconhecidamente propenso a travar. E toda vez que ele trava, o arquivo do Excel atualmente aberto pode ser corrompido como uma brisa. Portanto, para evitar a perda de dados valiosos do Excel, não apenas você deve fazer backup deles regularmente, mas também deve obter um notável xls recuperação ferramenta, como DataNumen Excel Repair. Ele será útil no caso de corrupção grave de dados do Excel.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo mdf corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com