√ Hapus Baris Yang Mempunyai Data Ganda Dengan Vba

Memanajemen database memang membutuhkan kehati-hatian alasannya yaitu bila terdapat kesalahan maka fungsi database itu sendiri dirasakan kurang maksimal. Data ganda atau duplikasi data memang hal yang sering terjadi dikala mengeola database yang dilakukan di Excel. Ketika menuliskan field yang mempunyai ribuan data maka kemungkinan data ganda sanggup saja terjadi dan hal ini yang menyebabkan kita harus mengatasinya.

Ada beberapa cara untuk mengatasi duplikasi atau data ganda contohnya 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 mempunyai data yang sama atau ganda dengan memakai pinjaman script VBA. Bagaimana instruksi yang harus dituliskan untuk hal tersebut? Berikut silakan tuliskan instruksi pada Module1.

Baca Artikel :

Menghapus Data Ganda dengan Fungsi Remove Duplicate

Ingat bila Anda belum menciptakan modul jangan copy kan script dibawah ini. Bagaimana cara menciptakan module? silakan cari dengan di artikel sebelumnya yang sudah saya tuliskan dan pribadi 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 instruksi VBA tersebut langkah berikutnya yaitu kita menuju ke worksheet lalu coba kita tuliskan data pada kolom A ibarat berikut ingat coba tuliskan beberapa data yang sama

Jika kita melihat data diatas ada beberapa data yang sama yaitu Sule. Kenapa saya sanggup tahu ada data yang sama alasannya yaitu data yang saya contohkan hanya berisi 7 buah data, nah bagaimana bila ribuan data?
Sekarang kita akan menciptakan tombol perintah untuk memanggil jadwal dengan memakai CommandButton silakan klik sajian Developer lalu klik Inser Button

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

Silakan klik tombol yang sudah dibentuk tadi dan lihat kesudahannya data yang ada di kolom A yang mempunyai baris dengan data yang sama akan dihapus secara otomatis

Selesai.
Semoga bermanfaat, dan selamat mencoba.

Simak juga Cara Memberi Tanda Ganda Dengan Macro

Sumber http://www.excel-id.com/