نیاز به مبادله سلول ها با یکدیگر در هنگام کار در صفحه گسترده مایکروسافت اکسل بسیار نادر است. با این وجود، چنین شرایطی وجود دارد و آنها باید مورد توجه قرار گیرند. بیایید ببینیم که چگونه می توانید سلول ها را در اکسل مبادله کنید.
محتوا
متأسفانه در مجموعه استاندارد ابزارها چنین عملکردی وجود ندارد که بدون اعمال اضافی یا بدون تغییر محدوده، می تواند دو سلول را تعویض کند. اما در عین حال، اگر چه این روش حرکت به همان اندازه ساده نیست که ما می خواهیم، هنوز هم می توان آن را تنظیم کرد، و در چندین راه.
اولین راه حل مشکل این است که کپی کردن داده ها به یک منطقه جداگانه و سپس جایگزینی آن را انجام دهد. بیایید ببینیم که این کار انجام شده است.
در حال حاضر داده های حمل و نقل حذف شده اند، وظیفه انتقال سلول ها به طور کامل تکمیل شده است.
البته این روش بسیار راحت نیست و نیاز به اقدامات اضافی دارد. با این حال، آن است که توسط بسیاری از کاربران قابل اجرا است.
راه دیگری که ممکن است مبادله سلول ها در مکان ها باشد، می تواند کشیدن ساده باشد. با این حال، هنگام استفاده از این گزینه، سلول ها تغییر خواهند کرد.
سلول مورد نظر خود را انتخاب کنید. مکان نما را در مرز خود قرار دهید در عین حال، آن را باید به یک فلش تبدیل، در پایان که اشاره گرها در چهار جهت وجود دارد. کلید Shift را روی صفحه کلید نگه دارید و آن را به جایی که میخواهیم بکشید.
به عنوان یک قاعده، این باید یک سلول مجاور باشد، زیرا در طی انتقال به طریقی کل محدوده تغییر می کند.
بنابراین، حرکت از طریق چندین سلول غالبا در متن یک جدول خاص اشتباه رخ می دهد و به ندرت مورد استفاده قرار می گیرد. اما نیاز به تغییر محتویات مناطقی که خیلی دور از هم هستند، ناپدید نمی شود، اما نیاز به راه حل های دیگر است.
همانطور که در بالا ذکر شد، هیچ راهی سریع و صحیح برای اکسل وجود ندارد بدون کپی کردن در نوار انتقال به مبادله دو سلول بین آنها، اگر آنها در مناطق مجاور نیستند. اما این می تواند از طریق استفاده از ماکروها یا افزونه های شخص ثالث بدست آید. ما در مورد استفاده از یکی از چنین کلاهبرداری خاص در زیر بحث خواهیم کرد.
Sub ПеремещениеЯчеек()
Dim ra As Range: Set ra = Selection
msg1 = "Произведите выделение ДВУХ диапазонов идентичного размера"
msg2 = "Произведите выделение двух диапазонов ИДЕНТИЧНОГО размера"
If ra.Areas.Count 2 Then MsgBox msg1, vbCritical, "Проблема": Exit Sub
If ra.Areas(1).Count ra.Areas(2).Count Then MsgBox msg2, vbCritical, "Проблема": Exit Sub
Application.ScreenUpdating = False
arr2 = ra.Areas(2).Value
ra.Areas(2).Value = ra.Areas(1).Value
ra.Areas(1).Value = arr2
End Sub
پس از وارد كردن كد، پنجره ويرايش را با كليك كردن دکمه بستن استاندارد در گوشه سمت چپ بالا ببنديد. بنابراین، کد در حافظه کتاب ثبت می شود و الگوریتم آن می تواند برای انجام عملیاتی که ما نیاز داریم، تکثیر شود.
مهم است که توجه داشته باشید که هنگام بستن یک فایل، ماکرو به صورت خودکار حذف می شود، بنابراین دفعه بعد مجبور است دوباره ثبت شود. به منظور انجام این کار هر بار برای یک کتاب خاص، اگر شما قصد دارید به طور مداوم انجام چنین حرکات در آن، پس شما باید فایل را به عنوان یک کتاب کار با اکسل (xlsm) ذخیره کنید.
درس: نحوه ایجاد یک ماکرو در اکسل
همانطور که می بینید، در Excel چندین راه برای انتقال سلول ها نسبت به یکدیگر وجود دارد. این را می توان با ابزار استاندارد برنامه انجام داد، اما این گزینه ها نسبتا ناراحت کننده هستند و زمان زیادی را صرف می کنند. خوشبختانه ماکروها و افزونه های شخص ثالث وجود دارد که به شما امکان می دهد که مشکل را به سرعت و به آسانی حل کنید. بنابراین برای کاربرانی که دائما چنین حرکاتی را اعمال می کنند، گزینه دوم است که مطلوب ترین خواهد بود.