نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

DOC-إزالة-خط breaks1 -2 DOC-إزالة-خط breaks2

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

إزالة فواصل سطر متعددة مع التعليمات البرمجية فبا

إزالة فواصل سطر متعددة مع كوتولس ل إكسيل

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.


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

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

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

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

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

DOC-إزالة-خط breaks3

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

DOC-إزالة-خط breaks2


السهم الأزرق الفقاعة اليمنى إزالة فواصل سطر متعددة مع التعليمات البرمجية فبا

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

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

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

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 مفتاح لتشغيل هذا الرمز، وسوف يظهر مربع موجه لاقول لكم لتحديد النطاق الذي تريد إزالة فواصل السطر، انظر الصورة:

DOC-إزالة-خط breaks4

3. ثم اضغط OK وتم حذف جميع فواصل الأسطر للاختيار.


السهم الأزرق الفقاعة اليمنى إزالة فواصل سطر متعددة مع كوتولس ل إكسيل

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

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. احصل عليه الآن

بعد تثبيت كوتولس ل إكسيل، يرجى القيام على النحو التالي الخطوات:

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

2. انقر Kutools > أدوات النص > إزالة الأحرف، انظر الصورة:

DOC-إزالة-خط breaks5

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

DOC-إزالة-خط breaks6

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

انقر لمعرفة المزيد حول هذه الميزة إزالة الأحرف.


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


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ajay Kumar Mohini · 4 years ago
    Thank You so much yaar. I found it very useful for my day to day office works.
  • To post as a guest, your comment is unpublished.
    Balamurugan · 5 years ago
    Thank you very much. it is really superb
  • To post as a guest, your comment is unpublished.
    meter21 · 5 years ago
    Thank you werry helpfull for my and my MYSQL CSV import :-)
  • To post as a guest, your comment is unpublished.
    Mary Pugh · 5 years ago
    THANK YOU!!! I have been battling blank lines in cell for too long.

    You solved the problem...thank you so much
  • To post as a guest, your comment is unpublished.
    kcjt2009 · 5 years ago
    I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return?

    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


    Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.