Setelah sekian lama tidak update di situs ini, kali ini Saya akan menyajikan tutorial atas dasar permintaan salah satu pembaca yang mengemail Saya. Beliau ingin tahu cara menyalin data dari satu sheet yang berisi kumpulan data unik yang mana banyak kesamaan data dan beliau juga butuh menghilangkan kesamaan data yang ada pada tabel tersebut.
Jika Anda memiliki keluhan yang sama dengan pengirim tadi, berarti Anda beruntung dapat singgah di postingan ini, namun jika Anda tidak memiliki keluhan serupa, mungkin Anda bisa belajar dari kasus tersebut dan mencoba menemukan solusinya di artikel ini.
Solusinya sederhana, untuk mengcopy data, Anda bisa menggunakan property copy dan menempelkan dengan paste. Sebelumnya pernah disinggung di artikel Cara Mengcopy Data Otomatis. Untuk menghapus data yang sama, Anda bisa menggunakan property RemoveDuplicates. Untuk lebih jelasnya, silakan ikuti langkah-langkah berikut:
LANGKAH 1:
Buatlah lembar kerja baru dengan nama terserah.
LANGKAH 2:
Sheet 1 diberi nama "Database" berisi data akun di bawah ini (bisa disalin, blok data kemudian copy - paste ke lembar kerja pada sel A1).
| Account | Name |
| 10000005 | Vernon |
| 10000005 | Vernon |
| 10000005 | Vernon |
| 10000005 | Vernon |
| 10000006 | Mitsuko |
| 10000006 | Mitsuko |
| 10000006 | Mitsuko |
| 10000006 | Mitsuko |
| 10000006 | Mitsuko |
| 10000006 | Mitsuko |
| 10000007 | Kristian |
| 10000007 | Kristian |
| 10000007 | Kristian |
| 10000007 | Kristian |
| 10000007 | Kristian |
| 10000007 | Kristian |
| 10000007 | Kristian |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000008 | Leroy |
| 10000010 | Trang |
| 10000010 | Trang |
| 10000010 | Trang |
| 10000010 | Trang |
| 10000010 | Trang |
| 10000010 | Trang |
| 10000010 | Trang |
| 10000012 | Sheba |
| 10000012 | Sheba |
| 10000012 | Sheba |
| 10000012 | Sheba |
| 10000012 | Sheba |
| 10000012 | Sheba |
| 10000012 | Sheba |
| 10000020 | Kenda |
| 10000020 | Kenda |
| 10000020 | Kenda |
| 10000020 | Kenda |
| 10000020 | Kenda |
| 10000020 | Kenda |
| 10000020 | Kenda |
LANGKAH 3:
Sheet 2 diberi nama "Account List" dan berisi tabel dengan header kolom bertuliskan "Account List" di sel A1 (nama opsional).
| Account List |
LANGKAH 4:
VBA Macro pada Module1 diisikan sintaks sebagai berikut:
Sub SalinDanDeduplikasi()
Sheets("Database").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Account List").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub
LANGKAH 5:
Tetapkan Macro yang sudah dibuat diatas bernama SalinDanDeduplikasi pada objek yang Anda kehendaki seperti button, shape, maupun langsung dari Macro Runnernya.
No comments:
Post a Comment