كيف يمكن تبديل أو تبادل النصوص داخل خلية واحدة في Excel؟

في العديد من الحالات، قد تحتاج إلى تبديل أجزاء النص داخل خلية واحدة لأغراض معيّنة. على سبيل المثال، تحتوي خلية على الاسم «Smith John»، وتحتاج إلى عكس ترتيبه ليصبح «John Smith». يعرض هذا المقال بعض الطرق الفعّالة لحل هذه المشكلة.

تبديل أو تبادل النصوص داخل خلية واحدة باستخدام صيغة
تبديل أو تبادل النصوص داخل خلية واحدة باستخدام كود VBA
تبديل أو تبادل النصوص داخل خلية واحدة بسهولة باستخدام Kutools لـ Excel>

تبديل أو تبادل النصوص داخل خلية واحدة باستخدام صيغة

يمكنك الصيغة التالية من تبديل النصوص داخل خلية واحدة في Excel. يُرجى اتباع الخطوات التالية.

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

=RIGHT(A2,LEN(A2)-FIND(« »,A2)) & « » & LEFT(A2,FIND(« »,A2)-1)

2. حدد خلية النتيجة، ثم اسحب مقبض التعبئة (Fill Handle) لأسفل للحصول على باقي النتائج، كما هو موضح في لقطة الشاشة أدناه.

بعد ذلك، ستلاحظ أن الاسم الأول والاسم الأخير قد تبادلا المواقع في الخلايا المحددة.

ملاحظة: يمكن لهذه الطريقة تبديل نصين داخل خلية واحدة فقط، بشرط أن يكونا مفصولين بمسافة.

تبديل أو تبادل النصوص داخل خلية واحدة باستخدام كود VBA

كما في المثال أعلاه، يمكنك أيضًا تشغيل سكربت VBA التالي لتبديل النصوص أو تبادلها داخل خلية واحدة.

1. اضغط معًا على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر علىInsert > Module، ثم انسخ والصق كود VBA أدناه في نافذة Module.

كود VBA: تبديل أو تبادل النصوص داخل خلية واحدة

Sub res()
    Dim xRg As Range, yRg As Range
    Dim LastRow As Long, i As Long
    Dim strTxt As String, strFs As String
    Dim strLs As String, N As Integer
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    For Each yRg In xRg
        On Error Resume Next
        strTxt = yRg.Value
        Trim (strTxt)
        N = InStr(strTxt, " ")
        strLs = Left(strTxt, N - 1)
        strFs = Right(strTxt, Len(strTxt) - N)
        yRg.Value = strFs & " " & strLs
    Next
End Sub

3. اضغط على مفتاحF5 لتشغيل الكود. في مربع الحوار المنبثقKutools لـ Excel، حدد النطاق الذي يحتوي على البيانات التي تريد تبديلها، ثم انقر على زرOK. انظر لقطة الشاشة:

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

ملاحظة: يمكن لهذا الكود أيضًا تبديل كلمتين داخل خلية واحدة بينهما مسافة بشكل صحيح.

تبديل أو تبادل النصوص داخل خلية واحدة بسهولة باستخدام Kutools لـ Excel

يوصي هذا القسم بأداة عكس النص من Kutools لـ Excel لمساعدتك في حل هذه المشكلة بسهولة. يُرجى اتباع الخطوات التالية.

1. حدد النطاق الذي يحتوي على النصوص التي تريد عكسها، ثم انقر علىKutools > Text > عكس النص. انظر لقطة الشاشة:

2. في مربع الحوارعكس النص، حدد الفاصل الذي ستعتمد عليه لتبديل النصوص في قسمSeparator. في هذه الحالة، اخترت خيارSpace، ثم انقر على زرOK.

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

مقال ذو صلة:

• كيف يمكن تبديل أو عكس اليوم والشهر في التاريخ داخل Excel؟

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

🤖	KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
	الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
	بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
	قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
	مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
	ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
	أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...