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

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

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

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

الصيغة أدناه يمكن أن تساعدك في تبديل النصوص داخل خلية واحدة في Excel. الرجاء القيام بما يلي.

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

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

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

ثم يمكنك رؤية أن الاسم الأول والاسم الأخير قد تم تبديلهما في الخلايا المحددة.

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

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

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

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

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ ولصق الكود VBA أدناه في نافذة الوحدة.

كود 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، يرجى تحديد النطاق الذي يحتوي على البيانات التي تحتاج إلى تبديلها، ثم انقر فوق الزر موافق. انظر إلى لقطة الشاشة:

ثم يمكنك رؤية النصوص في الخلايا ذات الأسماء المحددة يتم تبديلها على الفور.

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

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

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

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

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

ثم يمكنك رؤية البيانات في الخلايا المحددة يتم تبديلها في نفس الخلية بواسطة الفاصل المحدد على الفور.

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

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