كيفية إعادة ترتيب النص في خلية في Excel؟

لنفترض أن لديك جدول بيانات يحتوي على قائمة طويلة من الأسماء مكتوبة بالتنسيق "الاسم الأخير الاسم الأول"، والآن تحتاج إلى إعادة ترتيب جميع الأسماء لتصبح "الاسم الأول، الاسم الأخير". كيف يمكنك تحقيق ذلك؟ يقدم لك هذا المقال ثلاث طرق لحل المشكلة.

إعادة ترتيب النص في الخلية باستخدام الصيغة
إعادة ترتيب النص في الخلية باستخدام كود VBA
إعادة ترتيب النص بسرعة في الخلية باستخدام Kutools لـ Excel

إعادة ترتيب النص في الخلية باستخدام صيغة

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

1. حدد خلية فارغة لإخراج النص المعاد ترتيبه، وأدخل الصيغة أدناه فيها ثم اضغط على مفتاح الإدخال Enter.

=TRIM(MID(b2,SEARCH(" ",b2)+1,250))&" "&LEFT(b2,SEARCH(" ",b2)-1)

ملاحظة: في الصيغة، B2 هي الخلية التي تحتوي على الاسم الذي تريد إعادة ترتيبه. يرجى تغييرها بناءً على حاجتك.

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

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

بالإضافة إلى ذلك، يمكنك استخدام كود VBA أدناه لعكس جميع الأسماء في القائمة دفعة واحدة في Excel. الرجاء اتباع الخطوات التالية:

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

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

كود VBA: إعادة ترتيب النص في الخلية

Sub RearrangeText() 
'Updated by Extendoffice 20180503
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. بعد ذلك ستظهر نافذة منبثقة من Kutools لـ Excel، يرجى تحديد قائمة الأسماء التي تريد إعادة ترتيبها، ثم انقر فوق زر موافق. انظر لقطة الشاشة:

ثم يتم عكس جميع إدخالات "الاسم الأخير الاسم الأول" في القائمة المحددة على الفور.

إعادة ترتيب النص بسرعة في الخلية باستخدام Kutools لـ Excel

سيقدم لك هذا القسم أداة عكس ترتيب النص من Kutools لـ Excel لمساعدتك في إعادة ترتيب النص في الخلية.

1. حدد قائمة الأسماء التي تريد عكس "الاسم الأخير الاسم الأول"، ثم انقر فوق Kutools > نص > عكس ترتيب النص. انظر لقطة الشاشة:

2. في مربع حوار عكس النص، حدد خيار المسافة ثم انقر فوق زر موافق. انظر لقطة الشاشة:

ثم يتم إعادة ترتيب جميع الأسماء في القائمة المحددة مرة واحدة.

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

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