توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : vlookup چند گانه 2
با توجه به اطلاعات شیت یک فایل پیوست با سرچ کردن توسط تابع vlookupبه اطلاعات شیت دو برسم.
این همان سوال قبلی که توسط بنده مطرح شد و خیلی واضح نبود مجددا پرسش رو با ویرایش فایل پیوست قبل مطرح کردم.
iranweld
2015/10/08, 08:06
با سلام
در فایل پیوست با استفاده از ویژوال بیسیک یک لیست بدون تکرار در شیت اول ایجاد گردید و سپس مقدار هر شخص در سلول روبرو در یک ردیف لیست گردید
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
سلام جناب مهندس
راه حلی به جز ویژوال بیسیک وجود نداره؟ من میخوام از طریق فرمول ها برای فایلی که داه های زیادی دارم و حجمش هم خیلی زیاد هستش،فرمول بنویسم و برای همه داده هام اجرا کنم.
با سپاس
iranweld
2015/10/14, 10:10
سلام جناب مهندس
راه حلی به جز ویژوال بیسیک وجود نداره؟ من میخوام از طریق فرمول ها برای فایلی که داه های زیادی دارم و حجمش هم خیلی زیاد هستش،فرمول بنویسم و برای همه داده هام اجرا کنم.
با سپاس
با سلام
من فرمولی رو برای اینکار بخاطر ندارم، باید نظر سایر دوستان در انجمن رو جویا بشیم
یک نمونه فایل با داده بیشتر ضمیمه کنید بهتر میشه نتیجه گیری نمود
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.