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

Tweet