2 Kaedah Mudah untuk Mencegah Penduaan Nilai di Lajur di Excel Anda

Sekiranya anda ingin mengelakkan memasukkan nilai pendua dalam lajur di Excel, anda boleh merujuk artikel ini. Di sini kami akan berkongsi kepada anda 2 pendekatan mudah.

Kadang-kadang, semasa anda mengedit lembaran kerja Excel, anda mungkin ingin memastikan data dalam lajur unik, iaitu mencegah nilai pendua dalam lajur. Ia menuntut Excel untuk memberi amaran secara automatik kepada anda setiap kali anda memasukkan nilai pendua dalam lajur. Selepas itu, kami akan berkongsi 2 kaedah pantas untuk mendapatkannya.

Kaedah 1: Cegah melalui "Pengesahan Data"

1. Pertama, pilih semua sel dalam lajur tertentu, seperti "Lajur A".
2. Kemudian, beralih ke tab "Data" dan klik pada butang "Pengesahan Data" dalam kumpulan "Alat Data".
3. Selanjutnya, di kotak dialog pop timbul, pada tab "Tetapan", pilih opsi "Custom" dari daftar drop down "Allow".
4. Selepas itu, masukkan formula berikut di medan "Formula".

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

5. Kemudian, beralih ke tab "Makluman Ralat" di kotak dialog semasa.
6. Setelah itu, Anda dapat menyesuaikan pesan kesalahan sesuai dengan kebutuhan Anda, seperti menentukan "Nilai Pendua" sebagai judul ralat dan "Nilai telah dimasukkan dalam lajur yang sama!" sebagai mesej ralat.
7. Akhirnya, klik "OK".
8. Sekarang, anda boleh mencubanya.

• Pertama, masukkan nilai dalam Sel A1.
• Kemudian, masukkan nilai yang sama dalam Sel A2.
• Sekali gus, anda akan menerima mesej ralat, seperti tangkapan skrin berikut.

Kaedah 2: Cegah dengan Excel VBA

1. Sebagai permulaan, cetuskan editor Excel VBA dengan merujuk kepada "Cara Menjalankan Kod VBA di Excel Anda".
2. Kemudian, masukkan kod berikut ke dalam projek lembaran, seperti "Lembaran 1 (Lembaran 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 apa pun, tidak kira di lajur mana pun, makro akan memeriksa nilai lain secara automatik di lajur yang sama. Sekiranya ia mendapat nilai yang sama, anda akan mendapat amaran, seperti yang ditunjukkan dalam gambar berikut.

perbandingan

Dapatkan Kembali Data Excel Berharga

Excel diakui mengalami kemalangan. Dan setiap kali crash, fail Excel yang sedang dibuka boleh rosak seperti angin. Oleh itu, untuk mengelakkan kehilangan data Excel yang berharga, bukan sahaja anda harus menyandarkannya secara berkala, tetapi juga anda harus mendapatkan yang luar biasa pemulihan xls alat, seperti DataNumen Excel Repair. Ia akan berguna sekiranya berlaku kerosakan data Excel yang teruk.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk mdf rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com