[حل شده] شیتهای اکسل

[ali.maghsodi58]

با سلام. من 50 شیت دارم می خواستم بدونم چطور میشه از تمام این 50 شیت فقط سطر اول اونها به شیت جدید 51 منتقل بشه. یعنی شیت 51 شامل 50سطر باشه که هر سطر اون، از سطر اول 50 شیت قبلی اخذ شده است.

[iranweld]

با سلام

شیت مقصد را report نامگذاری کنید و از ماکرو ذیل استفاده کنید

Sub test()
z1 = Sheets("report").Cells(Sheets("report").Rows.Count, "A").End(xlUp).Row + 1
For Each Sheet In Worksheets
If Sheet.Name <> "report" Then
Sheet.Rows("1:1").Copy Destination:=Sheets("report").Range("A" & z1)
z1 = z1 + 1
End If
Next
End Sub