[حل شده] تکرار اسامی یک لیست در لیست دیگر با تعداد معین

[sabertb]

سلام خدمت اساتید عزیز 2 تا سوال داشتم
1- من یه لیست از اسامی دارم می خواهم در یک لیست دیگر هر کدام از اسامی لیست اول به تعداد اعداد ستون b ضرب در c تکرار شود.
2- 3 تا لیست دارم با اسامی مختلف افراد می خوام همه حالت های ترکیبی اسامی این 3 لیست برام لیست شود. مثلا اگر در لیست اول 3 تا اسم محمد و علی و رضا داریم و در لیست دوم 3 اسم اکبر و هاشم و اصغر و در لیست سوم مریم و شاهین و میثم وجود داشته باشد. می خواهم 27 حالت قرار گیری اسامی در کنار هم را داشته باشم مثل محمد اکبر میثم و علی اکبر میثم و ..........

[iranweld]

با سلام

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

Sub test()

Columns("E:E").ClearContents

Z1 = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Z2 = Sheet1.Cells(Sheet1.Rows.Count, "B").End(xlUp).Row
Z3 = Sheet1.Cells(Sheet1.Rows.Count, "C").End(xlUp).Row

T = 1
For i = 1 To Z1
For j = 1 To Z2
For k = 1 To Z3

Range("e" & T).Value = Range("a" & i).Value & " " & Range("b" & j).Value & " " & Range("c" & k).Value

T = T + 1

Next: Next: Next

End Sub 

[sabertb]

فایل پیوست برای سوال اول