مقایسه 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