مطالب برتر
حضرت علی (ع): «زَکوةُ العِلمِ نَشرُهُ؛ زکات علم نشر آن است».
وبلاگ "ترفندها" (سایت پی‌سی‌ترفند) برای عمل به این حدیث شریف و با هدف ارتقاء دانش و مهارت‌های مرتبط با رایانه در ۳۰ مهرماه ۱۳۹۱ ایجاد شده است. به امید آنکه مفید واقع شود.
🔵 کانال پی‌سی‌ترفند در تلگرام:
telegram.me/pctarfandir
🔵 ارتباط با ادمین:
telegram.me/pctarfand_admin
تبليغات
۱۵
شهریور ۹۵
نظرات
۱۹
ادغام چند فایل یا چند شیت اکسل + ماکرو
مرادی
برخی از اوقات اطلاعات مرتبط با یک موضوع در دو یا چند فایل اکسل و یا چند شیت مجزا نگهداری می‌شود. قرار دادن این اطلاعات در یک فایل واحد و در یک شیت و یا در شیت‌های مختلف در کنار یکدیگر، موجب دسترسی راحتتر به آن‌ها و صرفه‌جویی در زمان خواهد شد. همچنین بدیهی است که نگهداری و به خاطر سپردن یک فایل بسیار آسان‌تر از چند فایل است. در ادامه مطلب با پی‌سی‌ترفند همراه باشید تا با روش‌های ادغام چند فایل یا چند شیت اکسل آشنا شوید.
چند فایل یا چند شیت اکسل را میتوان بصورت دستی ادغام کرد. اما اگر تعداد این فایل‌ها یا شیت‌ها زیاد باشد ادغام دستی بسیار زمان‌بر و خسته کننده خواهد بود. برای همین بهتر است از روش‌های خودکار یعنی ماکرونویسی و استفاده از افزونه‌های اکسل استفاده کنید.
روش ۱- ماکرونویسی:
الف) ادغام چند شیت اکسل در یک شیت:
پس از دانلود فایل فوق، اگر امکان انتقال شیت‌ها به این فایل وجود دارد پس از انتقال، روی دکمه اجرای ماکروی ۱ کلیک کنید. اگر امکان انتقال وجود ندارد در فایلی که می‌خواهید شیت‌های آن را ادغام کنید کلیدهای Ctrl+R را بفشارید تا کد اجرا شود و شیت‌های مختلف در شیت جدیدی با نام Combined با هم ادغام شوند مشابه آنچه در تصویر اول نشان داده شده است.
برای اجرای صحیح کد باید به چند نکته دقت کرد:
۱- برای اینکه کد ماکرو اجرا شود باید فایل Macro tarfand 280 (pctarfand.ir) که دانلود کردید باز باشد.
۲- اطلاعات باید از سلول A1 شروع شود، اگر این طور نباشد کد هیچ تاثیری نمی‌گذارد.
۳- اطلاعات باید دارای ساختار یکسانی باشند.
۴- این کد فقط شیت‌های فایل فعال را ادغام می‌کند، اگر می‌خواهید شیت‌های چند فایل اکسل را با هم ادغام کنید از کد ماکروی بعد استفاده کنید.
منبع: extendoffice.com
روش ۲- نصب افزونه
- افزونه RDBMerge Add-in
با نصب این افزونه رایگان در اکسل شما قادر خواهید بود که محتویات شیت‌های مختلف یک فایل اکسل و حتی محتویات چند فایل اکسل را با هم ادغام نمایید.
برای نصب این افزونه کافیست پس از دانلود از این سایت و سپس استخراج آن، در پنجره تنظیمات اکسل وارد بخش Add-Ins شوید و در قسمت پایین پس از انتخاب گزینه Excel Add-Ins در بخش Manage روی دکمه Go کلیک کنید. در پنجره Add-Ins روی دکمه Browse کلیک کنید و فایل افزونه را انتخاب نموده و روی دکمه Ok کلیک کنید. پس از اضافه کردن افزونه، در تب Data دکمه جدیدی با نام RDBMerge Add-in به اکسل اضافه می‌شود. با کلیک روی این دکمه پنجره زیر باز می‌شود.
برای استفاده از این افزونه، ابتدا فایلی که می‌خواهید شیت‌های آن با هم ادغام شوند را درون یک پوشه قرار دهید و یا اگر می‌خواهید چند فایل را با هم ادغام کنید آن‌ها را درون یک پوشه قرار دهید و سپس با استفاده از دکمه Browse، آن پوشه را انتخاب کنید. سایر مراحل کار در سایت افزونه توضیح داده شده است.
این افزونه توسط سایت سونار وب فارسی شده است البته رایگان نمی‌باشد.
- افزونه Kutools
برای دانلود و آموزش نحوه استفاده از این افزونه به این آدرس (ادغام چند شیت) و این آدرس (ادغام چند فایل) مراجعه کنید.
برای مطلع شدن از جدیدترین مطالب سایت، کانال پی‌سی‌ترفند در تلگرام را با آی‌دی pctarfandir@ دنبال کنید:
|
سوالات خود در زمینه ورد و اکسل و ... را میتوانید از طریق ایمیل و تلگرام با ما مطرح کنید. آدرس ایمیل: tarfandha.blog@gmail.com آی‌دی تلگرام: pctarfand_admin@ |
نظرات (۱۹)
-
مسعود مقدسی
عالی دستتون درد نکنه در مورد ادغام چند فایل یا شیت در اکسل -
تونر رنگی
کامل و بی نقص بود. تصویر که هست آدم اشتباه نمیکنه. ممنون -
حامد
ممنون بابت کد تان
لطفا اگر ممکن است کد زیر را طوری اصلاح کنین که اطلاعات شیت بعدی را از سطر اول و در اولین ستون موجود کپی کند
یعنی می خام مثلا داده های شیت 2 بجای اینکه در زیر داده های شیت 1 قرار بگیره در سمت راست اون به صورت ستونی جدید از داده ها قرار بگیره
Sub Combine() 'pctarfand.ir & tarfandha.blog.ir'
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1,0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub -
amin
سلام
سایت تون عالی ، آیا می شود دو فایل را باهم ادغام کرد که این شرایط را داشته باشد. ** یک فایل فقط کد ملی و شناسنامه افراد داره و فایل دیگر کد ملی و اسم افراد آیا می توان با ادغام کردن هرسه را روبه روی هم قرار داد***-
پاسخ:
سلام
اگر دو سری اطلاعات را در یک فایل قرار دهید با استفاده از تابع VLOOKUP می توانید مشکلتان را حل کنید (راهنما).
موفق باشید.
-
-
مهدوی
سلام..من یک فایل اکس دارم که 50تا شیت داره واطلاعات تمامی شیتا دارای ستون وردیف برابر هست وفقط مقادیر اون با هم فرق داره وقتی برنامه رو اجرا می کنم دائم خطا میده ومیگه محدوده رو اشتباه کردی ردیف من از سلول A1 شروع میشه وتا سلول I1 ادامه داره..لطفا راهنمایی کنید.-
پاسخ:
سلام
دقیقا متن خطای ظاهر شده را برای من ارسال کنید.
-
-
مهرن
ممنون از مطالب مفید
من خیلی استفاده کردم -
جواد
سلام. ممنون از سایت خوبتون. دوتا سوال:
1. چطور میتونم "فقط آخرین ردیف" از چند شیت با ساختار مشابه رو در یک شیت زیر هم و در یک ستون مرتب کنم؟
2. میخواهم عملیات بالا امکان آپدیت شدن رو داشته باشه و هر دفعه اطلاعات آخرین ردیف به شیت و ستون مرجع اضافه بشه و قبلی ها از بین نره. آیا امکانش هست؟-
پاسخ:
سلام
این کارها را باید با ماکرونویسی انجام دهید. متاسفانه در این زمینه تخصص زیادی ندارم.
-
-
رضا
سلام در این روش سطر ها را زیر هم قرار میدهد اگر بخواهیم ستون ها را کنار هم قرار دهیم برنامه ماکرو میتواند انجام دهد یعنی اگر شیت اول تا ستون h باشد شیت دوم را در ستون i به بعد کپی کند
در صورت امکان جواب را ایمیل کنید-
پاسخ:
سلام
باید کدهای گفته شده در مطلب فوق را تغییر دهید. متاسفانه در این زمینه تخصص زیادی ندارم.
-
-
آیدا
سلام ممنون از لطفتون اما نمیدونم چرا برای فایلای رکورد بالا مثلا برای بیست تا فایل بالای چهل هزار رکورد جواب نمیده-
پاسخ:
سلام
متاسفانه دلیل مشکل را نمی دانم.
-
-
davod
سلام.من یک سوال دارم ممنون میشم کسی اگر میدونه جواب بده:
دو یا چند تا فایل متشابه(تعداد ستون و سطر و ....)و فقط و فقط آمار عددی ستونها فرق میکنه رو چطور میتونیم در یک فایل جمع کنیم ؟
یعنی چندتا فایل اکسل که متشابهه ستن و فقط تو مقادیر هر سلول متفاوت هستن و ک میشه علاوه بر ادغام جمع هم کرد.
09010832605
09330986140
ج.ابشو تو تلگرام بفرستید ممنون میشم-
پاسخ:
-
-
ابوالفضل
ممنون خیلی به دردم خورد . توضیح اینکه من هر ماه حدود 40 تا 50 فایل اکسل ( اطلاعات تراکنشهای بانکی ) دارم که جداگانه هست و لازم داشتم که یکجا کنم . خیلی کارم راحتتر شد . اجرت با امام حسین. -
S.H
سلام
من دو شیت اکسل که هرکدام دارای اطلاعات جداگانه هستن را می خواستم با هم تلفیق کنم از روش هایی که گفتین استفاده کردم و تمام کدها رو نیز وارد کردم ولی همش پیغام خطا میده اگه راهی داره ممنون میشم راهنمایی کنید .
درصورت امکان پاسخ را به ایمیلم ارسال نمائید.-
پاسخ:
سلام
چه پیغام خطایی میدهد؟
-
-
احمد
سللم
لطفا لینک کانال تلگرامتون را برام پیامک یا ایمیل بدید. -
سلام مجدد
من قدیما کمی vb بودم ولی دیگه چیزی یادم نیست. برای ماکرو نویسی حتما باید vb دانست؟
ضمنا با این کد (کد شما) چرا بجای اینکه اطلاعات را زیر هم جمع کند در ردیفهای جلوی جداول جمع می کند؟
ولی بهر حال با این مطلب ذهنم در این خصوص روشن شد. ممنون
-
پاسخ:
سلام
برای ماکرونویسی پیشرفته باید با زبان vb آشنا باشید.
اطلاعات در شیت جداگانه ادغام می شوند.
موفق باشید.
-
-
سلام
خیلی دنبال این مطلب گشتم و اخرش سر از وبلاگ شما در آوردم و خیلی هم ممنونم. جدا مطلبت خیلی عالی بود و کاربردی و خیلی به دردم خورد. واقعا ممنون. خدا اجرت بده .
بیشتر استفاده خواهم کرد از وبلاگت
-
مسلم
با سلام
من یک فایل اکسل با 18000 ردیف و 1000 ستون دارم و میخوام ترانسپوز کنم. اما تعداد ستون های اکسل حدود 16800 است. چطور می ت.نم تعداد ستون های یک شیت اکسل را افزایش بدم.
با تشکر-
پاسخ:
سلام
ظاهرا این امکان وجود ندارد.
-
-
وبگرد
سلام در مورد اکسل تحقیق می کردم خداییش هیچ سایتی اطلاعات شما رو نداره................فقط خواستم تشکر کنم ..کامل کامل -
marzeah
سلام ،در قسمت ادغام چند فایل اکسل ،در پنجره module هیچ اطلاعاتی وجود ندارد و پنجره خالی است .-
پاسخ:
سلام
باید کدهای گفته شده را در پنجره باز شده وارد کنید.
موفق باشید.
-
-
عباس قایدی
سلام .ایا میتوان وقتی مساحت یک زمین را بر روی گوگل ارث مشخص کردیم نقشه ان را به مپ سورس انتقال دهیم؟-
پاسخ:
سلام
متاسفانه اطلاعی ندارم.
-
