البحث عن التواريخ المتشابهة وحذفها

[Alsalim1]

مرحبا شباب

كيف أبحث في الخلايا عن التواريخ المتشابهة في التاريخ والوقت وحذفها مع إبقاء تاريخ واحد فقط مرفق المثال

 

مثال الصف 1 و 6 متشابهة أريد أحذف واحد وابقي واحد بمعني احذف الصف رقم 1 وأبقي الصف رقم 6

البحث عن التواريخ المتشابهة.rar

[أبو حنــــين]

مرحبا

جرب هذا الكود

Sub iDel()

Application.ScreenUpdating = False

For R = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
       If WorksheetFunction.CountIf(Range("A2:A" & R), Cells(R, 1).Value) > 1 Then
'      Range("A" & R & ":B" & R).ClearContents
       Range("A" & R & ":B" & R).Delete Shift:=xlUp
      End If
Next
Application.ScreenUpdating = True

End Sub

 

[Alsalim1]

مشكور أبو حنين هذا الكود إذا كانت التواريخ مسجلة في الخلية A و B وإذا كانت التواريخ مسجلة في الخلية F و  G  ماذا أغير في الكود؟

[أبو حنــــين]

14 دقائق مضت, Alsalim1 said:

مشكور أبو حنين هذا الكود إذا كانت التواريخ مسجلة في الخلية A و B وإذا كانت التواريخ مسجلة في الخلية F و  G  ماذا أغير في الكود؟

غير  A  الى F

غير  B   الى G

 

تم تعديل أكتوبر 3, 2016 بواسطه أبو حنــــين