پرسش انتخاب اسم مشتری خاص در لیست مشتریان

[mehrdad5959]

سلام و عرض ادب به دوستان.

ببخشید من یه فایل دارم که در آن اسم مشتری 2 بار یا 3 بار تعریف شده

میخاستم تابعی تعریف کنم که از هر اسم مشتری با مشخصات آدرس و نام فروشگاه فقط یک اسمش برام بیرون بیاره و در سلول دیگه نمایش بده
(بطور کامل یعنی همراه با آدرس و نام فروشگاه )
بعنوان مثال :
نام مشتری فروشگاه آدرس

آباد حامد (A)	آباد a	روبروي آزانس همشهري
آباد حامد (B)	آباد b	روبروي آزانس همشهري
آباد حامد (C)	آباد c	روبروي آزانس همشهري

تعریف فرمول یا تابع :
این نتیجه را بده :

آباد حامد (A)

آباد a

روبروي آزانس همشهري

فرقی هم نداره که (A) بیاد یا (B)

[saed.rasa]

سلام
تست کنید لطفا!
اگر اشکالی داشت دقیق و واضح و شفاف در فایل اکسل مثال بزنید و نتیجه مورد انتظار را عنوان فرمایید لطفا
مرسی

[M_ExceL]

سلام
در فایل پیوست با کلیک روی Button 1 نتیجه را بررسی نمایید

Sub M_ExceL()
lstr = Cells(Rows.Count, 2).End(3).Row
Dim A As Variant
A = Uvalues(Range("b2:b" & lstr))
n = 1
For i = LBound(A) To UBound(A)
    For R = 2 To lstr
        If Cells(R, 2) Like "*" & A(i) & "*" Then
            n = n + 1
            For c = 1 To 4
                Cells(n, c + 5) = Cells(R, c)
            Next
        Exit For
        End If
    Next
Next
End Sub


Function Uvalues(rng As Range) As Variant
Dim coll As New Collection
Dim A1 As Variant
Dim A2() As Variant
A1 = rng.Value
On Error Resume Next
For Each itm In A1
    If itm <> Empty Then
        coll.Add rplc(CStr(itm)), rplc(CStr(itm))
    End If
Next
On Error GoTo 0
ReDim A2(1 To coll.Count)
For i = 1 To coll.Count
    A2(i) = coll.Item(i)
Next
Uvalues = A2
End Function

Function rplc(T As String) As String
For i = 1 To Len(T)
    If Mid(T, i, 1) = "(" Then
        s = i
    ElseIf Mid(T, i, 1) = ")" Then
        e = i
    End If
Next
If s > 0 And e > 0 Then
    rplc = Replace(T, Mid(T, s, e), "")
Else
    rplc = T
End If
End Function

[mehrdad5959]

سلام
تست کنید لطفا!
اگر اشکالی داشت دقیق و واضح و شفاف در فایل اکسل مثال بزنید و نتیجه مورد انتظار را عنوان فرمایید لطفا
مرسی

ممنونم.
فقط سوالم اینه که میخام بصورت لیستی همه اسامی مشابه رو یکی کنه و در لیست جداگانه بنویسه
در فایل پیوست نمونه فرستادم

[saed.rasa]

سلام
شرمنده من اولش متوجه نشده بودم کار شما درست بود!

تست کنید لطفا!