توضیحات
شما با استفاده از این کد می توانید هر تعدادی که شیت داشته باشید در چند ثانیه به یک شیت منتقل کنید. و چند شیت را در یک شیت ادغام نمائید.
چند نکته در مورد این کد:
1- شما با کلیدهای Alt+F11 باید وارد محیط VBA شوید.
2- یک ماژول جدید ایجاد کنید و این کد را درون آن کپی کنید.
3- عدد ۱۷ تعداد شیت های شما می باشد که شما هر تعداد شیت داشته باشید این عدد را تغییر می دهید.
4- شیتی که قرار است اطلاعات در آن تجمیع شود حتما باید اولین شیت باشد.و نام آن Sheet1 باشد.(شما با درگ کردن می توانید شیت را به ابتدای فایل جابجا کنید)
5-عبارت Range(“A1:S20001”).Select در خط سوم تعداد داده های شیت ها را نشان می دهد. مثلا در این مثال تا سلول S20001 اطلاعات داشتیم.
نحوه اجرای ماکرو در اکسل
بعد از اینکه کد مورد نظر به ماژول اکسل کپی شد باید ماکرو مورد نظر را اجرا کنیم . برای این کار از تب Developer گزینه Macros را کلیک کنید.
لیست ماکرو ها رو مشاهده می کنید. حالا باید روی ماکرو Merge کلیک کنید و دکمه Run را بزنید.
سوالات و نظرات