[حل شده] پیدا کردن تشابه در یک ستون

[saman501]

سلام دوستان میخوام ستون a اگر مشابه داخلش بود مشابهای اون انتقال بده به یک ستون دیگه

[iranweld]

با سلام

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

Sub test()

Macro1

z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

K = 1

For I = 1 To z1

For J = I + 1 To z1

If Range("A" & I) = Range("A" & J) And Range("A" & I).Font.ColorIndex <> 3 Then




Range("A" & J).Font.ColorIndex = 3

Range("B" & K) = Range("A" & I)

K = K + 1


End If

Next


Next

End Sub 

[shamsololama]

درود فراوان

اگر میخواین دستی انجام بدین یک ستون با تابع Countif هر آیتم رو بدست بیاورید و با فیلتر کردن تعداد های که بیتشتر از یک هست مشابه ها رو فیلتر و به ستونی دیگر کپی کنید
و سپس می توانید در ستون اصلی با استفاده از منو تکراری ها رو حذف کنید .