2 metode simple pentru a preveni valorile duplicate într-o coloană în Excel

Dacă doriți să evitați introducerea de valori duplicate într-o coloană în Excel, puteți consulta acest articol. Aici vă vom împărtăși 2 abordări simple.

Uneori, atunci când editați o foaie de lucru Excel, vă recomandăm să vă asigurați că datele dintr-o coloană sunt unice, și anume împiedicând valorile duplicate într-o coloană. Solicită ca Excel să vă alerteze automat de fiecare dată când introduceți valori duplicate într-o coloană. Ulterior, vă vom împărtăși 2 mijloace rapide pentru a-l obține.

Metoda 1: Preveniți prin „Validarea datelor”

1. În primul rând, selectați toate celulele dintr-o coloană specifică, cum ar fi „Coloana A”.
2. Apoi, accesați fila „Date” și faceți clic pe butonul „Validare datelor” din grupul „Instrumente pentru date”.
3. Apoi, în caseta de dialog pop-up, pe fila „Setări”, selectați opțiunea „Personalizat” din lista derulantă „Permite”.
4. După aceea, introduceți următoarea formulă în câmpul „Formulă”.

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

5. Mai târziu, comutați la fila „Alerta de eroare” din caseta de dialog curentă.
6. Ulterior, puteți personaliza un mesaj de eroare în funcție de nevoile dvs., cum ar fi specificarea „Valori duplicate” ca titlu de eroare și „Valoarea a fost introdusă în aceeași coloană!” ca mesaj de eroare.
7. În cele din urmă, faceți clic pe „OK”.
8. Acum, puteți încerca.

• În primul rând, introduceți o valoare în celula A1.
• Apoi, introduceți aceeași valoare în Celula A2.
• Imediat, veți primi un mesaj de eroare, precum următoarea captură de ecran.

Metoda 2: Preveniți cu Excel VBA

1. Pentru început, declanșați editorul Excel VBA cu referire la „Cum să rulați codul VBA în Excel".
2. Apoi, introduceți următorul cod în proiectul unei foi, cum ar fi „Foaia 1 (Foaia 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. De atunci, de fiecare dată când introduceți o valoare în orice celulă, indiferent de coloană, macrocomanda va verifica automat celelalte valori din aceeași coloană. Dacă găsește aceleași valori, veți primi o alertă, așa cum se arată în figura următoare.

Comparaţie

Obțineți date prețioase Excel

Excel este, desigur, predispus la blocare. Și de fiecare dată când se blochează, fișierul Excel deschis în prezent poate fi corupt ca o briză. Prin urmare, pentru a evita pierderea datelor valoroase din Excel, nu numai că ar trebui să le faceți copii de rezervă în mod regulat, ci și să obțineți o copie remarcabilă. recuperare xls instrument, cum ar fi DataNumen Excel Repair. Va fi util în cazul unei corupții severe a datelor Excel.

Introducerea autorului:

Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv mdf corupt și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com