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

[ali.b]

سلام خدمت دوستان
در فایل اکسلی که پیوست کردم
یک سری کلمات یکسان درج میشن
نیاز به کدی دارم که از بین مقادیر تکرار شده، اخرین کلمه رو برام پیدا کنه
توضیحات کامل تو فایل پیوست هست.
تشکر

[iranweld]

با سلام

کدهای ذیل را بررسی کنید

Sub test()

Dim list1 As New Collection

On Error Resume Next

For i = 10 To 1 Step -1

If Range("a" & i) = Range("c1") Then

list1.Add Range("a" & i).Address, CStr(Range("a" & i))

End If

Next

Range(list1.Item(1)).Select

End Sub 

[ali.b]

با سلام

کدهای ذیل را بررسی کنید

Sub test()


Dim list1 As New Collection

On Error Resume Next

For i = 10 To 1 Step -1

If Range("a" & i) = Range("c1") Then

list1.Add Range("a" & i).Address, CStr(Range("a" & i))

End If

Next

Range(list1.Item(1)).Select

End Sub 

تشکر عالی بود