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

[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]

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

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