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

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

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

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

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

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

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

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

2. انقر الرئيسية > البحث والاستبدال > استبدل أو انقر فوق CTRL + F الاختصارات ، و بحث واستبدال سوف يظهر مربع الحوار.

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

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

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

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

1. انقر المطور > Visual Basic أو اضغط على المفتاح ألت + فسنومك مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات، ثم اضغط إدراج > وحدة، وأدخل الكود التالي:

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

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. ثم اضغط OK وتم حذف كافة فواصل الأسطر في التحديد.

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

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

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

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

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

2. انقر كوتولس > نص > إزالة الشخصيات.

3. في إزالة الأحرف مربع الحوار ، تحقق عدم الطباعة الخيار ، ويمكنك أن ترى النتيجة من عرض جزء أيضًا ، انظر لقطة الشاشة:

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

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

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