[حل شده] ایجاد چندین شیت بر اساس لیست به خصوص

[تولایی]

سلام به همه دوستان.
بنده برای کارم در شیت شماره 1 جدولی را شامل چندین ستون دارم که ستون اول آن ردیف است و مابقی ستون ها اطلاعات دیگری است و می خواهم که به تعداد ردیف های شیت 1 شیت جدید که به نام ردیف ها است ایجاد کند .
مثلا اگر در شیت 1 جدول من شامل 200 ردیف است ، ماکرو یا هر فرمولی به من این امکان را بدهد که 200 شیت از شماره 1 تا شیت شماره 200 را ایجاد کنم.
خواهشمندم مرا راهنمایی نمایید
با تشکر

[amir_ts]

با سلام
کد زیر را امتحان کنید.

[LEFT]
Sub test()
Dim lr, i As Integer
Application.ScreenUpdating = False

lr = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row


   For i = 1 To lr
       Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
       Sheets(Sheets.Count).Name = i
   Next i
Sheets("sheet1").Activate
Application.ScreenUpdating = true
End Sub
[/LEFT]