مقایسه 2 ستون و حذف ردیفهایی که 20 کارآکتر مشابه دارند

[shahin1986]

سلاو خدمت اساتید عزیز
بنده یه فایل اکسل دارم که در 2 ستون نامهای محصولاتم قرار دارند می خواهم محصولاتی که 10 کارآکتر مشابه دارند را از لیست حذف کنم.یعنی مثلا محصول اول از ستون 1 را با کل محصولات ستون دوم مقایسه کند اگر 10 کارآکترش در آن وجود داشت محصول اول را حذف کند یا اگر نمی تواند حذف کند در ستون سوم نمایش دهد.
لطفا کمکم کنید.نمونه فایل را هم پیوست می کنم.


با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

از ماکرو ذیل استفاده کنید

تا 75 درصد مشابه را جستجو مینماید.

 Int(Len(Range("A" & i)) * 0.75)) 

که میتوانید تغییر دهید

Sub TEST()

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Z2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row

For j = 2 To Z2
k = 3
For i = 2 To Z1

If InStr(Range("B" & j), Left(Range("A" & i), Int(Len(Range("A" & i)) * 0.75))) > 0 Then

Cells(j, k) = Range("A" & i)

Range("A" & i).Interior.ColorIndex = 4

k = k + 1

End If
Next
Next

End Sub