vlookup چند گانه 2

[mehrabn]

با توجه به اطلاعات شیت یک فایل پیوست با سرچ کردن توسط تابع vlookupبه اطلاعات شیت دو برسم.
این همان سوال قبلی که توسط بنده مطرح شد و خیلی واضح نبود مجددا پرسش رو با ویرایش فایل پیوست قبل مطرح کردم.

[iranweld]

با سلام

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

Sub UniqueCopy()
 Sheet1.Range("1:20").Clear
 On Error Resume Next
 Sheet2.Select
    With ActiveSheet
         .Range("A1", .Range("A65536").End(xlUp)).AdvancedFilter _
             Action:=xlFilterCopy, CopyToRange:=Sheet1.Range("A1"), Unique:=True
    End With
On Error GoTo 0

test

End Sub

Sub test()
Dim k As Integer

Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
y = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
For I = 2 To Z
k = 2
For j = 2 To y

If LCase(Sheet1.Range("A" & I).Value) = LCase(Sheet2.Range("A" & j).Value) Then

Sheet1.Cells(I, k).Value = Sheet2.Range("b" & j).Value

k = k + 1

Sheet1.Cells(I, k).Value = Sheet2.Range("c" & j).Value
k = k + 1

'Sheet1.Cells(i, k).Value = Sheet2.Range("d" & j).Value'
'k = k + 1'

'Sheet1.Cells(i, k).Value = Sheet2.Range("e" & j).Value'
'k = k + 1'


End If

Next
Next


End Sub 

[mehrabn]

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

[iranweld]

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

با سلام

من فرمولی رو برای اینکار بخاطر ندارم، باید نظر سایر دوستان در انجمن رو جویا بشیم

یک نمونه فایل با داده بیشتر ضمیمه کنید بهتر میشه نتیجه گیری نمود