2 Metode Mudah untuk Mencegah Nilai Duplikat dalam Kolom di Excel Anda

Jika Anda ingin menghindari memasukkan nilai duplikat dalam kolom di Excel, Anda bisa merujuk ke artikel ini. Di sini kami akan membagikan kepada Anda 2 pendekatan sederhana.

Terkadang, saat Anda mengedit lembar kerja Excel, Anda mungkin ingin memastikan data di kolom unik, yaitu mencegah nilai duplikat dalam kolom. Ini menuntut Excel untuk mengingatkan Anda secara otomatis setiap kali Anda memasukkan nilai duplikat di kolom. Selanjutnya, kami akan membagikan 2 cara cepat untuk mendapatkannya.

Metode 1 ： Mencegah melalui "Validasi Data"

1. Pertama, pilih semua sel di kolom tertentu, seperti "Kolom A".
2. Kemudian, buka tab "Data" dan klik tombol "Validasi Data" di grup "Alat Data".
3. Selanjutnya, di kotak dialog popup, pada tab "Pengaturan", pilih opsi "Kustom" dari daftar drop-down "Izinkan".
4. Setelah itu masukkan rumus berikut pada kolom “Formula”.

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

5. Nanti, alihkan ke tab "Peringatan Kesalahan" di kotak dialog saat ini.
6. Selanjutnya, Anda dapat menyesuaikan pesan kesalahan sesuai kebutuhan Anda, seperti menentukan "Nilai Duplikat" sebagai judul kesalahan dan "Nilai telah dimasukkan di kolom yang sama!" sebagai pesan kesalahan.
7. Terakhir, klik "OK".
8. Sekarang, Anda bisa mencobanya.

• Pertama, masukkan nilai di Sel A1.
• Kemudian, masukkan nilai yang sama di Cell A2.
• Anda akan segera menerima pesan kesalahan, seperti tangkapan layar berikut.

Metode 2: Mencegah dengan Excel VBA

1. Untuk memulai, picu editor VBA Excel dengan referensi ke "Cara Menjalankan Kode VBA di Excel Anda".
2. Kemudian, masukkan kode berikut ke dalam proyek lembar, seperti "Lembar 1 (Lembar 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. Sejak itu, setiap kali Anda memasukkan nilai di sel mana pun, di kolom mana pun, makro akan otomatis memeriksa nilai lain di kolom yang sama. Jika menemukan nilai yang sama, Anda akan mendapatkan peringatan, seperti yang ditunjukkan pada gambar berikut.

Perbandingan

Dapatkan Kembali Data Excel yang Berharga

Excel memang rentan macet. Dan setiap kali crash, file Excel yang saat ini dibuka bisa rusak seperti angin. Karenanya, untuk menghindari kehilangan data Excel yang berharga, Anda tidak hanya harus mencadangkannya secara teratur, tetapi juga harus mendapatkan xls pemulihan alat, seperti DataNumen Excel Repair. Ini akan berguna jika terjadi kerusakan data Excel yang parah.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com