مشخص کردن تکرار در سلول

[mohammad.b.f]

آیا میشود در سلول عدد و یا حروف را مشخص کرد؟
ممنون

[iranweld]

با سلام

در فایل پیوست با وارد نمودن فرمول tekrari و انتخاب سلول مورد نظر حروف یا اعداد تکراری نمایش داده میشود


=tekrari(A1)


فانکشن تعریف شده برای استخراج حروف تکراری


Function tekrari(rng As Range)

Dim list1 As New Collection

On Error Resume Next

For i = 1 To Len(rng)

For j = i + 1 To Len(rng)


If Mid(rng, i, 1) = Mid(rng, j, 1) Then


list1.Add Mid(rng, i, 1), CStr(Mid(rng, i, 1))

End If

Next

Next

For j = 1 To list1.Count

kk = kk + list1.Item(j)

Next

If Len(kk) = 0 Then kk = ""

tekrari = kk

End Function