با سلام به دوستان و اساتید گرامی . برای مقایسه و حذف دادهای شیت 2 که در شیت 1 هم هستند از این فرمول استفاده کردم:
Private Sub CommandButton1_Click()
Dim c As Range
Dim d As Range
For Each c In Sheet2.Range("a1:a500")
If c <> "" Then
For Each d In Sheet1.Range("a1:a50000")
If d.Value = c.Value And d.Offset(0, 1).Value = c.Offset(0, 1).Value Then
c = ""
c.Offset(0, 1).Value = ""
c.Offset(0, 2).Value = ""
End If
Next
End If
Next
End Sub
منتها با توجه به اینکه حجم داده ها بالاست عملکردش خیلی کند هستش .
اگه اساتید فرمول رو اصلاح یا راه حل بهتری معرفی کنن ممنون میشم.با تشکر
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.