Klik sel mana saja di kolom yang ingin Anda proses dan jalankan makro kecil ini:
Sub DuplicateKiller()
Dim N As Long, IR As Long, v As Variant
Dim i As Long, rng As Range
IR = ActiveCell.Column
N = Cells(Rows.Count, IR).End(xlUp).Row
Set r = Range(Cells(1, IR), Cells(N, IR))
For i = N To 1 Step -1
With Cells(i, IR)
v = .Value
If Application.WorksheetFunction.CountIf(r, v) > 1 Then
.ClearContents
End If
End With
Next i
End Sub
Macro sangat mudah dipasang dan digunakan:
- ALT-F11 menampilkan jendela VBE
- ALT-I
ALT-M membuka modul baru
- rekatkan barang-barang di dan tutup jendela VBE
Jika Anda menyimpan buku kerja, makro akan disimpan bersamanya.
Jika Anda menggunakan versi Excel di kemudian 2003, Anda harus menyimpan
file sebagai .xlsm daripada .xlsx
Untuk menghapus makro:
- buka jendela VBE seperti di atas
- hapus kode
- tutup jendela VBE
Untuk menggunakan makro dari Excel:
- ALT-F8
- Pilih makro
- Sentuh RUN
Untuk mempelajari lebih lanjut tentang makro secara umum, lihat:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
dan
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Makro harus diaktifkan agar ini berfungsi!