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

عند استخدام ورقة عمل Excel ، كيف يمكنك عكس سلسلة النص أو ترتيب الكلمات في Excel؟ على سبيل المثال ، تريد عكس "يعد Excel أداة مفيدة لنا"إلى"su rof نهب lufesu a si lecxE". أو يمكنك أحيانًا عكس ترتيب الكلمات مثل "Excel ، Word ، PowerPoint ، OneNote"إلى"OneNote و PowerPoint و Word و Excel". عادة يكون حل هذه المشكلة صعبًا نوعًا ما. يرجى الاطلاع على الطرق التالية:

سلسلة نصية عكسية مع وظيفة محددة من قبل المستخدم

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

سلسلة نصية عكسية أو ترتيب كلمات مع كوتولس ل إكسيل بسرعة وسهولة

سلسلة نصية عكسية مع وظيفة محددة من قبل المستخدم

لنفترض أن لديك مجموعة من السلاسل النصية التي تريد عكسها ، مثل "أضف الأصفار البادئة في Excel"إلى"lecxE ni sorez gnidael dda". يمكنك عكس النص بالخطوات التالية:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدةنافذة.

Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))
End Function

3. ثم احفظ وأغلق هذا الرمز ، عد إلى ورقة العمل ، وأدخل هذه الصيغة: = reverseestr (A2) في خلية فارغة لوضع النتيجة ، انظر لقطة الشاشة:

4. ثم اسحب مقبض التعبئة لأسفل لنسخ هذه الصيغة ، ويتم تبجيل النص الموجود في الخلايا في الحال ، انظر لقطة الشاشة:

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

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

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدة نافذة.

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

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

4. ثم اضغط Ok، يظهر مربع حوار آخر لك لتحديد الفاصل الذي تريد عكس الكلمات بناءً عليه ، انظر لقطة الشاشة:

5. ثم اضغط OK، ويمكنك رؤية الكلمات المحددة معكوسة ، انظر لقطات الشاشة:

سلسلة نصية عكسية أو ترتيب كلمات مع كوتولس ل إكسيل بسرعة وسهولة

• كوتولس ل إكسيلالصورة عكس ترتيب النص يمكن أن تساعدك على عكس السلاسل النصية المختلفة بسرعة وسهولة. يمكنه القيام بالعمليات التالية:

اعكس النص من اليمين إلى اليسار ، مثل "اضغط على بعض الكلمات"إلى"sdrow ايموس بات"؛

يتم فصل النص العكسي بمسافة أو بأحرف محددة أخرى ، مثل "تفاح برتقال عنب"إلى"عنب برتقال تفاح"؛

عكس النص من اليمين إلى اليسار:

1. حدد النطاق الذي تريد عكسه.

2. انقر كوتولس > أدوات النص > عكس ترتيب النص، انظر لقطة الشاشة:

3. في عكس النص مربع الحوار ، حدد الخيار المناسب من الفاصل التي تتوافق مع قيم الخلية. ويمكنك معاينة النتائج من ملف جزء المعاينة. انظر لقطة الشاشة:

 قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!

عكس النص مفصول بمسافة أو بأحرف محددة أخرى:

يمكن أن تساعدك هذه الميزة أيضًا في عكس السلاسل النصية المفصولة بأحرف معينة.

1. حدد الخلايا وقم بتطبيق هذه الأداة عن طريق النقر كوتولس > نص > عكس ترتيب النص.

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

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

ملاحظة:تدقيق تخطي النصوص غير النصية خلايا لمنعك من عكس الأرقام في النطاق المحدد.

لمعرفة المزيد عن هذه الوظيفة ، يرجى زيارة عكس ترتيب النص.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!

عرض توضيحي: سلسلة نصية عكسية بناءً على فاصل محدد باستخدام Kutools for 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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