Hapus baris duplikat kecuali baris dengan nilai nol dan nol

Sub Workbook_Open()
Dim value As Integer
value = Range("B3:N1955").value
If IsEmpty(value) Or value > 0 Then
Range("B3:N1955").RemoveDuplicates Columns:=13, Header:=xlsm
Else
End If
End Sub

Saya ingin menghapus nilai baris duplikat kecuali baris dengan nilai 0 atau nol. Saya terus mendapatkan kesalahan 'Ketik Ketidakcocokan' setiap kali saya menjalankan kode di atas. Terima kasih sebelumnya. Tangkapan Layar Saya

microsoft-excel microsoft-excel-2010 vba iHateBugs
sumber

Apakah Anda mempertimbangkan satu kolom untuk duplikat atau seluruh baris?

Rajesh S

Hai @Rajesh. seluruh baris ..

iHateBugs

Jawaban:

Anda dapat menggunakan kode sederhana ini, untuk menghapus Gandakan kecuali baris dengan nol dan Null.

Diedit:

Periksa Tangkapan Layar:

N.B. Baris MERAH adalah duplikat, Null (kosong) & amp; Nol diisi dengan warna.

Private Sub CommandButton1_Click()

ActiveSheet.Range("A1:D20").RemoveDuplicates Columns:=4, Header:=xlNo

End Sub

N.B.

Anda dapat mengubah rentang data sesuai kebutuhan Anda.
Jika Anda merasa Anda dapat menggunakan metode ini dengan acara Worksheet_Open juga.

Rajesh S
sumber

Saya mendapatkan galat Run-Time '13': Ketik ketidakcocokan.

iHateBugs

tidak memungkinkan,,, sebelum saya diposting itu telah diuji berulang kali. Mungkin ada yang hilang , jika Anda merasa saya dapat memposting Screen Shot juga.

Rajesh S

Sub Duplikat () Nilai redup Sebagai nilai Integer = Rentang ("B3: N1955"). Nilai Jika IsEmpty (nilai) Atau nilai & gt; 0 Kemudian ActiveSheet.Range ("B3: N1955"). RemoveDuplicates Columns: = 13, Header: = xlTidak Ada Akhir Jika Akhir Sub "Saya mengubahnya sedikit".

iHateBugs

Tidak perlu baris ini ,, nilai redup Sebagai nilai Integer = Rentang ("B3: N1955") Ingat Rentang Data memiliki tipe Rentang bukan Bilangan Bulat.

Rajesh S

Tes pertama seperti yang saya tulis dan untuk beberapa baris akan membantu Anda untuk mengamati dengan benar. Rentang data Anda terlalu besar untuk menguji kode !!

Rajesh S