كيفية إزالة فواصل الأسطر بسرعة في Excel؟

أحيانًا، عندما تقوم بنسخ بعض البيانات من موقع ويب أو تفصل القيم باستخدام مفاتيح Alt + Enter، ستحصل على بعض فواصل الأسطر أو عودة السطر. إذا كنت تريد إزالة عدة فواصل أسطر بسرعة في Excel كما هو موضح في لقطات الشاشة التالية، يمكنك القيام بذلك على النحو التالي:

إزالة عدة فواصل أسطر باستخدام وظيفة البحث والاستبدال

إزالة عدة فواصل أسطر باستخدام كود VBA

إزالة عدة فواصل أسطر باستخدام Kutools لـ Excel

إزالة عدة فواصل أسطر باستخدام وظيفة البحث والاستبدال

يمكنك إزالة عدة فواصل أسطر بسرعة باستخدام وظيفة البحث والاستبدال في Excel، يرجى تنفيذ الخطوات التالية:

1. حدد النطاق الذي تريد إزالة عدة فواصل أسطر منه.

2. انقر فوق Home > Find & Replace > Replace أو اضغط على اختصارات Ctrl + F، وسيظهر مربع الحوار البحث والاستبدال.

3. ثم في مربع البحث عن، اضغط مع الاستمرار على مفتاح ALT، وبعد ذلك اضغط على الأرقام 010 من لوحة المفاتيح الرقمية. اترك مربع الاستبدال به فارغًا أو أدخل مسافة. انظر لقطة الشاشة:

4. وبعد ذلك انقر فوق زر استبدال الكل، سيتم إزالة جميع فواصل الأسطر. انظر لقطة الشاشة:

إزالة عدة فواصل أسطر باستخدام كود VBA

يمكن أن يساعدك الكود البرمجي VBA التالي أيضًا في حذف جميع فواصل الأسطر في ورقة العمل. يرجى القيام بما يلي:

1. انقر فوق Developer > Visual Basic أو اضغط على مفاتيح Alt+F11 لفتح نافذة Microsoft Visual Basic for applications، ثم انقر فوق Insert > Module، وأدخل الكود التالي:

كود VBA: إزالة عدة فواصل أسطر في ورقة عمل

Sub RemoveCarriage()
'Update 20131216
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

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

3. ثم انقر فوق موافق وستتم إزالة جميع فواصل الأسطر من النطاق المحدد.

إزالة عدة فواصل أسطر باستخدام Kutools لـ Excel

قد تنسى أحيانًا كيفية استخدام وظيفة البحث والاستبدال أو لا تكون على دراية بالكود لإزالة عدة فواصل أسطر، في هذه الحالة، يمكن أن يساعدك Kutools لـ Excel في حل هذه المشكلة.

Kutools لـ Excel: يحتوي على أكثر من 300 إضافة مفيدة لـ Excel، جربها مجانًا دون قيود لمدة 30 يومًا. احصل عليه الآن

بعد تثبيت Kutools لـ Excel، يرجى القيام بالخطوات التالية:

1. حدد النطاق الذي تريد إزالة عودة السطر منه.

2. انقر فوق Kutools > Text > Remove Characters.

3. في مربع الحوار Remove Characters، حدد خيار Non-printing، ويمكنك رؤية النتيجة من جزء المعاينة أيضًا، انظر لقطة الشاشة:

4. وبعد ذلك انقر فوق موافق أو تطبيق. سيتم إزالة جميع فواصل الأسطر من الخلايا المحددة.

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

• إزالة الأحرف الأبجدية من الخلايا
• إزالة الأحرف غير الرقمية من الخلايا
• إزالة الأحرف الرقمية من الخلايا
• إزالة الأحرف غير القابلة للطباعة من الخلايا
• إزالة الأحرف غير الأبجدية من الخلايا