ادغام و تجمیع شیت ها در اکسل با روشی ساده و سریع

برای ادغام شیت ها در اکسل معمولا ابزارهایی مانند Consolidate استفاده می شود که شما با این ابزار می توانید اطلاعات چند شیت را در یک شیت تجمع و جمع آوری کنید
ایرادی در کار با این ابزار مشاهده می شود این است که Consolidate اطلاعات مشابه را با هم جمع می کند و یک جدول واحد به شما نشان می دهد.

راه حل اول ادغام چند شیت در اکسل

حال اگر شما بخواهید اطلاعات شیت ها را بدون عملیات ریاضی در زیر هم داشته باشید و ادغام کنید، می بایست شیت ها را به صورت دستی کپی کرده و زیر هم Paste کنید که این کار زمان بر و گاهی اوقات ناممکن است.

بنابراین تنها راه باقی مانده استتفاده از VBA اکسل است.

ادغام چند شیت اکسل در یک شیت با استفاده از VBA

شما با استفاده از تکه کد زیر می توانید هر تعدادی که شیت داشته باشید در چند ثانیه به یک شیت منتقل کنید. و چند شیت را در یک شیت ادغام نمائید.

Sub Merge()
'
' 
'
'
For i = 2 To 17
Sheets(i).Select
Range("A1:S20001").Select
Selection.Cut
Sheets("Sheet1").Select
Range("A" & WorksheetFunction.CountA(Sheets("sheet1").Range("A:A")) + 1 & "").Select
ActiveSheet.Paste
Next i
End Sub

چند نکته در مورد کد بالا:

۱- شما با کلیدهای Alt+F11 باید وارد محیط VBA شوید.

۲- یک ماژول جدید ایجاد کنید و این کد را درون آن کپی کنید.

3- عدد ۱۷ تعداد شیت های شما می باشد که شما هر تعداد شیت داشته باشید این عدد را تغییر می دهید.

۴- شیتی که قرار است اطلاعات در آن تجمیع شود حتما باید اولین شیت باشد.و نام آن Sheet1 باشد.(شما با درگ کردن می توانید شیت را به ابتدای فایل جابجا کنید)

۵-عبارت Range(“A1:S20001”).Select در خط سوم تعداد داده های شیت ها را نشان می دهد. مثلا در این مثال تا سلول S20001 اطلاعات داشتیم.