√ Script Vba Hapus Data Duplikat

Mengelola database memang tak terlepas dari duplikasi data atau terjadinya data ganda, hal ini tentu perlunya ada antisipasi biar pekerjaan yang dilakukan user lebih efektif dan efisien. Untuk mengatasi duplikasi data saya punya script yang dapat dipakai untuk melengkapi aplikasi yang dibentuk dengan VBA.

Berikut pola script Hapus data duplikat

Sub HapusDuplikasi()
    With Application
        ' Mematikan update layar
        .ScreenUpdating = False
        Dim LastColumn As Integer
        LastColumn = Cells.Find(What:="*", After:=Range("A1"), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column + 1
        With Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
            ' Penyaringan data unik
            .AdvancedFilter Action:=xlFilterInPlace, Unique:=True
            .SpecialCells(xlCellTypeVisible).Offset(0, LastColumn - 1).Value = 1
            On Error Resume Next
            ActiveSheet.ShowAllData
            'hapus baris yang kosong
            Columns(LastColumn).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
            Err.Clear
        End With
        Columns(LastColumn).Clear
        .ScreenUpdating = True
    End With
End Sub

Untuk memasukan script diatas silakan buat satu buah module lalu pastekan script diatas ke dalam module yang telah dibentuk tadi.

Simak juga goresan pena saya : [18] Cara Menghapus Data Ganda / Duplikat dengan Fungsi Remove Duplicate

Sctipt diatas diperuntukan menghapus data ganda tanpa peringatan, tentunya kita jikalau Anda telah klik perintah untuk pembatalan data ganda maka data tidak dapat dikembalikan kembali. Lalu bagaimana jikalau kita mempunyai data lalu kita perlu tandai terlebih dahulu apa saja yang mempunyai data ganda lalu gres kita menghapusnya.

Baca goresan pena : [01] Macro Excel || Memberi Tanda Ganda pada Excel

Sedikit citra untuk memasukan script dan menambahkan module silakan lihat gambar dibawah ini biar lebih terperinci dan gampang untuk dipahami.

Demikian, semoga bermanfaa dan selamat mencoba.
Sumber http://www.excel-id.com/