كيفية استبدال الفواصل بسطور جديدة (Alt + Enter) في الخلايا في Excel؟

كما يظهر في لقطة الشاشة اليسرى، كيف يمكنك استبدال الفواصل بسطور جديدة داخل الخلايا في Excel؟ يمكن أن تساعدك الطرق الموجودة في هذه المقالة.

استبدال الفواصل بسطور جديدة باستخدام وظيفة البحث والاستبدال
استبدال الفواصل بسطور جديدة باستخدام كود VBA

استبدال الفواصل بسطور جديدة باستخدام وظيفة البحث والاستبدال.

يمكنك تطبيق وظيفة البحث والاستبدال لاستبدال جميع الفواصل في الخلايا المحددة بسطور جديدة. الرجاء اتباع الخطوات التالية.

1. حدد الخلايا التي ستحل فيها السطور الجديدة محل الفواصل. ثم انقر على الرئيسية > البحث والتحديد > استبدال. شاهد لقطة الشاشة:

ملاحظة: يمكنك أيضًا الضغط على مفاتيح Ctrl + H معًا لفتح مربع الحوار البحث والاستبدال.

2. في مربع الحوار البحث والاستبدال الذي يفتح تحت علامة التبويب استبدال، تحتاج إلى:

3. بعد ذلك، ستظهر نافذة منبثقة من Microsoft Excel، يرجى النقر على زر موافق.

4. أغلق مربع الحوار البحث والاستبدال.

الآن تم استبدال جميع الفواصل بسطور جديدة في الخلايا المحددة.

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

استبدال الفواصل بسطور جديدة باستخدام كود VBA

هذا القسم سيقدم لك كود VBA لاستبدال جميع الفواصل في الخلايا المحددة بسطور جديدة. الرجاء اتباع الخطوات التالية خطوة بخطوة.

1. حدد الخلايا التي تحتوي على الفواصل التي تحتاج إلى استبدالها بسطور جديدة، ثم اضغط على مفاتيح Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Applications.

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

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

Sub ReplaceComma()
Dim rngCell As Range
  For Each rngCell In Selection
    rngCell.Value = Replace(rngCell, ",", vbLf)
  Next
End Sub

3. اضغط على مفتاح F5 أو انقر على زر التشغيل لتشغيل الكود. ثم يتم استبدال جميع الفواصل في الخلايا المحددة بسطور جديدة فورًا.

مقال ذو صلة:

• كيفية استبدال الفاصلة الأخيرة بـ 'و' في الخلايا في Excel؟
• كيفية تقسيم محتويات الخلية متعددة الأسطر إلى صفوف / أعمدة منفصلة في Excel؟
• كيفية وضع عدة أسطر من النص في خلية واحدة في Excel؟