• Menyalin Data Duplikat Dalam Lembar Kerja Excel Dengan Macro VBA

    menyalin data duplikat Salah satu kelebihan dari Microsoft Excel adalah kemampuannya dalam memasukkan data hampir sekitar 1 juta (secara vertikal atau berdasarkan baris), yang ini tentunya asangat berpotensi menghasilkan nilai ganda atau duplikat atau nama lainnya adalah dobel....hehehe

    Memang dalam aplikasi Microsoft Excel sudah menyediakan sebuah fitur untuk mencegah pengguna dalam mengentry atau memasukkan data agar tidak sama antar satu dengan yang lainnya, yang mana hal ini bisa dilakukan salah satunya dengan menggunakan Conditional Formatting atau Data Validation.

    Dalam artikel kali ini, excelive tidak akan membahas bagaimana cara mencegah data ganda atau memaksa pengguna agar tidak bisa memasukkan data ganda karena saya yakin tutorial semacam ini sudah banyak yang membahasnya.
    Tujuan dari tutorial ini adalah menyalin data duplikat dari sekumpulan data-data yang sudah ada menggunakan Macro VBA, jadi pastikan jendela Microsoft Visual Basic Editor sudah dalam posisi aktif atau terbuka. Untuk lebih jelasnya, silahkan lihat tutorial ini.

    Sebagai contoh, lihat sekumpulan data (berisi data ganda) berikut :
    Data Duplikat

    Dari sekumpulan data-data diatas, yang sama diwarnai dengan warna merah adalah data yang sama (duplikat).

    Untuk mencari data duplikat, maka yang terlebih dahulu dilakukan adalah membuat sebuah module dengan isi seperti berikut :
    on error resume next
    Dim SelAwal As Range, duplikat As Object, hasil_duplikat As Object
    Dim Data_Duplikat As Variant, i As Long, j As Long
    
    Set duplikat = CreateObject("Scripting.Dictionary")
    Set hasil_duplikat = CreateObject("Scripting.Dictionary")
    
    Set SelAwal = [A3]
    
    Data_Duplikat= SelAwal.CurrentRegion.Value
    For i = LBound(Data_Duplikat, 1) To UBound(Data_Duplikat, 1)
    If duplikat.Exists(Data_Duplikat(i, 1)) Then
    hasil_duplikat(Data_Duplikat(i, 1)) = Empty
    Else
    duplikat(Data_Duplikat(i, 1)) = Empty
    End If
    Next i
    Baris kode di atas berfungsi untuk mencari data yang sama atau ganda dari sekumpulan data yang sudah dibuat. Untuk tutorial ini, pembacaan diawali dari baris atau sel A3 (baris kode Set SelAwal = [A3]). Sementara untuk melihat data-data yang ada, menggunakan CurrentRegion untuk memudahkan pembacaan isi sel yang dimaksud. Untuk lebih jelasnya menggunakan Macro VBA CurrentRegion lihat disini.

    Langkah terakhir adalah menyalin hasil data duplikat ke sel lain dan untuk melakukannya masih menggunakan bantuan Macro VBA, seperti berikut :
    With [C3].Resize(hasil_duplikat.Count)
    .Value = Application.Transpose(hasil_duplikat.keys)
    .Sort key1:=.Cells(1), order1:=xlAscending
    End With
    Baris kode ini bertugas untuk menyalin hasil data ganda yang ditemukan dari kode sebelumnya, dengan spesifikasi sebagai berikut :
    • Menuliskan data ganda mulai dari sel C3
    • Hasil data ganda akan diurutkan dari yang terkecil
    Hasil dari tutorial ini bisa Anda download melalui tautan berikut:
    download

    Terimakasih sudah membaca
    Tutorial: Menyalin Data Duplikat Dalam Lembar Kerja Excel Dengan Macro VBA
    Labels: - Author: excelive

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues, such as the following :
    Macro VBA Excel Functions Custom UDF many more...
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger