Script VBA Hapus Data Duplikat

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

Berikut contoh 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 kemudian pastekan script diatas ke dalam module yang telah dibuat tadi.

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

Sctipt diatas diperuntukan menghapus data ganda tanpa peringatan, tentunya kita jika Anda telah klik perintah untuk penghapusan data ganda maka data tidak bisa dikembalikan kembali. Lalu bagaimana jika kita mempunyai data kemudian kita perlu tandai terlebih dahulu apa saja yang memiliki data ganda kemudian baru kita menghapusnya.

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

Sedikit gambaran untuk memasukan script dan menambahkan module silakan lihat gambar dibawah ini agar lebih jelas dan mudah untuk dipahami.

Demikian, semoga bermanfaa dan selamat mencoba.

Tweet