[حل شده] ادغام شیتها

[hussein1358]

با سلام
آیا فرمولی برای اینکه دو یا سه شیت که فرمت یکسانی دارند برحسب شماره ردیف با هم ادغام شوند ، یعنی شماره ردیفهای 1 زیر هم قرار بگیرند و بعد شماره ردیفهای 2 و به همین ترتیب الی آخر...
ممنون

[ahmad.khanifar]

ساده ترین راه استفاده از کپی و پست میباشد اما اگر تعداد زیاد باشند و یا از تکرار این عمل خسته می شوید با یک کد نویسی vba امکان پذیر هست ...

[hussein1358]

ساده ترین راه استفاده از کپی و پست میباشد اما اگر تعداد زیاد باشند و یا از تکرار این عمل خسته می شوید با یک کد نویسی vba امکان پذیر هست ...

با سلام
ممنون از راهنمایی شما، ولی چون تعداد شیتها زیاد هستش با استفاده از کپی و پیست زمان زیادی رو می خواد...

[iranweld]

با سلام
یک نمونه فایل ارسال کنید.

[hussein1358]

با سلام
یک نمونه فایل ارسال کنید.

سلام
فایل نمونه رو براتون گذاشتم.
من می خواستم که ردیفهای شیتهای 1 تا 4 برحسب تاریخ در شیت total جمع بشن
ممنون از راهنماییتون

[iranweld]

با سلام

از ماکرو ذیل استفاده کنید. برای سورت تاریخ هم از سورت اکسل بعد از اتمام ماکرو استفاده کنید

Sub total()

For Each Sheet In Worksheets

If lcase(Sheet.Name) <> LCase("TOTAL") Then

Z1 = Sheet.Cells(Sheet.Rows.Count, "A").End(xlUp).Row

Z2 = Sheets("Total").Cells(Sheets("Total").Rows.Count, "A").End(xlUp).Row + 1

If Z2 = 5 Then Z2 = 6

Sheet.Range("A6:BA" & Z1).Copy Destination:=Sheets("Total").Range("A" & Z2)

End If

Next Sheet

End Sub