كيفية قلب الاسم الأول والأخير في الخلايا في إكسيل؟
لنفترض أنك حصلت على قائمة بالأسماء في عمود واحد ، ومع ذلك ، فإنك تحتاج إلى قلب الاسم الأول واسم العائلة في الخلايا. عادة ستدخل إلى خلية واحدة وتقطع الاسم الأخير ، ثم تلصقه قبل الاسم الأول ، أو تعيد كتابة الاسم مرة أخرى. سيكون الأمر مضيعة للوقت ومملة إذا استخدمت هذه الأساليب التقليدية. في الواقع ، هناك عدة طرق سهلة لقلب أو عكس الاسم الأول واسم العائلة في عمود واحد بسرعة. لنفترض أن لديك عمود أسماء ، وتحتاج إلى قلب الاسم الأول والأخير كما هو موضح أدناه:
اقلب الاسم الأول والأخير في عمود به وظيفة
اقلب الاسم الأول والأخير في عمود باستخدام VBA
اقلب الاسم الأول والأخير في عمود باستخدام Kutools for Excel
قسّم الاسم الكامل إلى الاسم الأول والاسم الأخير باستخدام Kutools for Excel
اقلب الاسم الأول والأخير في عمود به وظيفة
يمكننا استخدام إحدى صيغ Excel لقلب الاسم الأول والأخير بسرعة في عمود من خلال الخطوات التالية:
أدخل الصيغة =MID(A2&" "&A2,FIND(" ",A2)+1,LEN(A2)) في خلية فارغة ، تقول الخلية C2. ثم اسحب مقبض التعبئة لأسفل إلى الخلايا لتطبيق هذه الصيغة ، ثم يمكنك رؤية جميع الأسماء الأولى والأخيرة تم تبجيلها. انظر لقطة الشاشة:
اقلب الاسم الأول والأخير في عمود باستخدام VBA
يمكنك أيضًا استخدام وحدات ماكرو VBA لقلب الاسم الأول والأخير في عمود بسرعة.
1. اضغط باستمرار ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.
Sub FlipName()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Sign As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sign = Application.InputBox("Symbol interval", xTitleId, " ", Type:=2)
For Each Rng In WorkRng
xValue = Rng.Value
NameList = VBA.Split(xValue, Sign)
If UBound(NameList) = 1 Then
Rng.Value = NameList(1) + Sign + NameList(0)
End If
Next
End Sub
3. اضغط على F5 مفتاح لتشغيل هذا الماكرو. في ظهرت كوتولسفورإكسيل في مربع الحوار ، حدد النطاق المراد قلبه ، ثم انقر فوق OK زر. انظر لقطة الشاشة:
4. في مربع الحوار المنبثق التالي ، يرجى إدخال رمز الفاصل الزمني (مثل مسافة) ، ثم النقر فوق OK زر. انظر لقطة الشاشة:
5. الآن تم قلب الاسم الأول واسم العائلة في النطاق المحدد. انظر لقطة الشاشة:
اقلب الاسم الأول والأخير في عمود باستخدام Kutools for Excel
بدافع كوتولس ل إكسيلالصورة Reverse Text Order، يمكنك عكس ترتيب النص بسرعة في الخلايا.
- +300 وظائف قوية وسهلة الاستخدام ،+110,000 اختيار مستخدمي Excel
- كامل المواصفات تجربة مجانية في 30 يوما، بطاقة الإئتمان غير مطالب بها
- العشرات من الوظائف بنقرة واحدة لتقليص وقت العمل في حل المشكلات المعقدة
- يتضمن وظائف لتحويل الدُفعات ، والحذف ، والجمع بين الأوراق / الخلايا ، والتوسع ، وإلخ ، والمحاولة مجانًا الآن.
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)
1. حدد النطاق الذي تريده لعكس الاسم الأول والأخير.
2. انقر كوتولس > Text > Reverse Text Order، انظر لقطة الشاشة:
3. في ال Reverse Text في مربع الحوار ، حدد فاصل السلسلة النصية المحددة باستخدام ، (في هذه الحالة ، أحدد Space الخيار) ثم انقر فوق OK زر. تم عكس جميع الأسماء الأولى وأسماء العائلة في النطاق المحدد. انظر لقطة الشاشة:
ملاحظات: تدقيق Skip non-text خلايا لمنعك من عكس الأرقام في النطاق المحدد.
عرض توضيحي: عكس / عكس الاسمين الأول والأخير في الخلايا
قسّم الاسم الكامل إلى الاسم الأول والاسم الأخير باستخدام Kutools for Excel
بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)
إذا كانت لديك قائمة بالأسماء الكاملة التي تحتاج إلى تقسيمها إلى الاسم الأول والاسم الأخير في عمودين بشكل منفصل كما هو موضح أدناه ، يمكنك تطبيق Kutools for Excel's Split Names للتعامل معها بسرعة.
1. حدد قائمة الأسماء التي تريد تقسيمها ، انقر فوق كوتولس > Merge & Split > Split Names.
2. في ال Split Names الحوار ، تحقق First name و Last name مربعات الاختيار ، إذا كنت تريد تقسيم الاسم الأوسط أيضًا ، فحدد Middle name. انقر Ok، حدد خلية لوضع أسماء الانقسام.
العرض التوضيحي: تقسيم الأسماء إلى الاسم الأول واسم العائلة
Kutools for Excel: أكثر من 300 وظيفة يجب أن تكون لديك في Excel، نسخة تجريبية مجانية لمدة 30 يومًا من هنا. |
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!