dear all master... mohon bantuan untuk rumus makronya...
langsung ke topiknya.. saya pingin menghapus data kembar.dan menyisakan data yg
paling baru...
sebenarnya cara paling cepat adalah pakai remove duplikat dari bawaan excel
sendiri cuman sayangnya... data yg dihapus malah yg terbaru... dan menyisakan
data yg lama saja... nah yg saya inginkan justru sebaliknya...
data saya lampirkan.. bisa langsung di cek ke bagian sheet "data penjualan"..
disana saya siapkan 1 tombol hapus dan saya ingin hasilnya seperti di sheet
"contoh hasil tombol hapus" mohon bantuannya... semoga paham maksud saya...
saya ada nemu rumus makro ini cuman bilamana datanya mencapai 5000an or lebih
dari itu.. prosesnya memakan waktu yg cukup lama sekitar 2-3 menit.. yg mana
menurut saya cukup lama... sebaliknya rumus bawaan excelnya(remove duplikat)
malah lebih cepat... bahkan ga sampe 30 dtk...
Sub hapus()
Dim brs As Long
Dim i As Long
Dim j As Long
Dim ROW_DELETED As Boolean
brs = WorksheetFunction.CountA(ActiveSheet.Range("A:A")) - 1
Application.ScreenUpdating = False
For x = 1 To brs
ActiveSheet.Range("Q" & x + 1).Value = ActiveSheet.Range("C" & x + 1).Value &
ActiveSheet.Range("D" & x + 1).Value
Next x
i = 2
Do While i <= ActiveSheet.UsedRange.Rows.Count
ROW_DELETED = False
For j = i + 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 17) = Cells(j, 17) Then
Rows(i).Delete
ROW_DELETED = True
Exit For
End If
Next j
If Not ROW_DELETED Then i = i + 1
Loop
For x = 1 To brs
ActiveSheet.Range("Q" & x + 1).ClearContents
Next x
Application.ScreenUpdating = True
End Sub
--- Mods ---
File lampiran yang lebih dari 250KB dilepas dari postingan. Silakan penanya
melampirkan ulang file yang diusahakan maksimal 250KB dengan cara me-reply
email ini.
----------------
