Diskusi tentang Excel

Hapus Baris Yang Memiliki Data Ganda dengan VBA

Memanajemen database memang membutuhkan kehati-hatian karena jika terdapat kesalahan maka fungsi database itu sendiri dirasakan kurang maksimal. Data ganda atau duplikasi data memang hal yang sering terjadi ketika mengeola database yang dilakukan di Excel. Ketika menuliskan field yang memiliki ribuan data maka kemungkinan data ganda bisa saja terjadi dan hal ini yang mengakibatkan kita harus mengatasinya.

Ada beberapa cara untuk mengatasi duplikasi atau data ganda misalnya menghapus data dengan Remove Duplicate dan ada juga yang menghapus baris satu per satu. Namun pada kesempatan kali ini saya akan menghapus data baris yang memiliki data yang sama atau ganda dengan menggunakan bantuan script VBA. Bagaimana kode yang harus dituliskan untuk hal tersebut? Berikut silakan tuliskan kode pada Module1.

Baca Artikel :
Menghapus Data Ganda dengan Fungsi Remove Duplicate
Ingat jika Anda belum membuat modul jangan copy kan script dibawah ini. Bagaimana cara membuat module? silakan cari dengan di artikel sebelumnya yang sudah saya tuliskan dan langsung saja berikut script VBA yang harus dituliskan


Option Explicit

Public Sub HapusBarisGanda()
Dim CariRange As Range
Dim DataTerakhir As String
Dim C As Range
Dim HapusRange As Range
Set CariRange = Range(Cells(1, 1), Cells(4000, 1))
DataTerakhir = "*****"
For Each C In CariRange
    If C.Value = DataTerakhir Then
        If HapusRange Is Nothing Then
            Set HapusRange = Rows(C.Row)
        Else
            Set HapusRange = Union(HapusRange, Rows(C.Row))
        End If
    End If
DataTerakhir = C.Value
Next C
HapusRange.Delete
End Sub
Jika sudah dituliskan kode VBA tersebut langkah berikutnya adalah kita menuju ke worksheet kemudian coba kita tuliskan data pada kolom A seperti berikut ingat coba tuliskan beberapa data yang sama


Jika kita melihat data diatas ada beberapa data yang sama yaitu Sule. Kenapa saya bisa tahu ada data yang sama karena data yang saya contohkan hanya berisi 7 buah data, nah bagaimana jika ribuan data?
Sekarang kita akan membuat tombol perintah untuk memanggil program dengan menggunakan CommandButton silakan klik menu Developer kemudian klik Inser Button


Langkah berikutnya silakan pilih nama Macro "HapusBarisGanda" kemudian klik OK



Silakan klik tombol yang sudah dibuat tadi dan lihat hasilnya data yang ada di kolom A yang memiliki baris dengan data yang sama akan dihapus secara otomatis


Selesai.
Semoga bermanfaat, dan selamat mencoba.

Simak juga Cara Memberi Tanda Ganda Dengan Macro

Related

Macro Excel VBA 8603434206756761765

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item