كيفية تبديل محتويات خليتين بسرعة في إكسيل؟

عندما نتعامل مع ورقة عمل ، قد نحتاج أحيانًا إلى تبديل محتويات خليتين. عادةً ما يعرف معظمنا فقط "القص واللصق والنسخ" لمبادلة المحتويات ، ولكنه يستغرق وقتًا طويلاً. سنتحدث عن كيفية تبديل المحتويات بسرعة في الخلايا في Excel.

قم بتبديل محتويات خليتين متجاورتين يدويًا
قم بتبديل محتويات خلية غير متجاورة برمز VBA
قم بتبديل محتويات خلية عشوائية بسهولة بعدة نقرات فقط

قم بتبديل محتويات خليتين متجاورتين يدويًا

في بعض الأحيان ، هناك خليتان متجاورتان يجب تبديلهما. يمكننا القيام بذلك يدويًا بسهولة. انظر إلى لقطة الشاشة التالية ، أريد تبديل الخلية A4 و B4 ، يرجى القيام بما يلي:

1. حدد الخلية التي تريد مبادلة. في هذا المثال ، حدد الخلية A4.

2. صحافة تغير key ، ثم ضع المؤشر على الحد الأيمن.

3. ثم اسحب المؤشر إلى الحد الأيمن للخلية B4.

4. عندما يكون هناك عرض "工"، حرر الماوس.

5. وتم تبديل محتويات خليتين. انظر لقطة الشاشة:

باستخدام هذه الطريقة ، يمكننا أيضًا تبديل صفين أو عمودين متجاورين.

قم بتبديل محتويات خلية غير متجاورة برمز VBA

عندما تكون الخليتان غير متجاورتين ، لن تعمل الطريقة المذكورة أعلاه. يمكننا استبدالها برمز VBA.

1. اضغط على CTRL مفتاح وحدد خليتين غير متجاورتين تريد تبديلهما.

2. انقر المطور>Visual Basic، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج>وحدة، وأدخل الكود التالي في ملف وحدة:

Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3. ثم اضغط لتشغيل الكود ، يتم عرض مربع حوار لتحديد الخليتين اللتين تريد التبديل بينهما. انظر لقطات الشاشة:

4. انقر Ok في مربع الحوار المنبثق ، يتم تبديل الخليتين المحددتين. انظر لقطات الشاشة:

الملاحظات: لا يمكن لرمز VBA هذا تبديل تنسيق الخليتين.

قم بتبديل محتويات خلية عشوائية بسهولة بعدة نقرات فقط

بإضافة إلى كوتولس ل إكسيل's نطاقات المبادلة الأداة المساعدة ، لا يمكننا فقط تبديل خليتين أو صفوف أو أعمدة متجاورة ، ولكن يمكننا أيضًا تبديل خليتين أو صفوف أو أعمدة غير متجاورة بسهولة.

1. انقر كوتولس > الفترة (من ... إلى) > نطاقات المبادلة، انظر لقطة الشاشة:

2. في ال نطاقات المبادلة مربع الحوار ، تحتاج إلى:

• (1) انقر فوق الأول زر في نطاق المبادلة 1 مربع لتحديد الخلايا التي تريد مبادلة.
• (2) انقر فوق الثانية زر من نطاق المبادلة 2 مربع لتحديد الخلايا التي ستتبادل معها.
  نصائح: يمكنك تحديد النطاقين قبل تطبيق الميزة ، ثم يمكنك مشاهدة النطاقين المحددين معروضين في المربعين Swap Range 1 و Swap Range 2 بشكل منفصل.
• (3) انقر فوق OK .

ثم يتم تبديل خليتين أو نطاقات محددة على الفور. انظر لقطات الشاشة:

عرض توضيحي: قم بتبديل محتويات خلية عشوائية باستخدام Kutools لـ Excel

مقالة ذات صلة:

• كيفية تبديل الصفوف أو الأعمدة في إكسيل؟

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...