آیا میشود در سلول عدد و یا حروف را مشخص کرد؟
ممنون
ممنون
-
-
با سلام
در فایل پیوست با وارد نمودن فرمول tekrari و انتخاب سلول مورد نظر حروف یا اعداد تکراری نمایش داده میشود
کد PHP:=tekrari(A1)
فانکشن تعریف شده برای استخراج حروف تکراری
کد PHP: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
کامنت