كيف يمكن عدّ عدد الأسطر (فواصل الأسطر) في خلية بـ Excel؟
عند العمل مع البيانات في Excel، من الشائع أن تجد خلايا تحتوي على أسطر نصية متعددة مفصَّلة بفواصل أسطر. فعلى سبيل المثال، قد تظهر العناوين المستوردة أو قوائم المنتجات أو ردود الاستبيانات كعدة أسطر داخل خلية واحدة، نتيجة استخدام مفتاحي Alt+Enter أو بسبب تنسيق مصدر البيانات الأصلي. ومعرفة عدد الأسطر الموجودة في خلية ما قد تكون خطوةً حاسمة لتحليل البيانات أو تنظيفها أو إعداد التقارير بدقة. ويشرح هذا المقال طرقًا عملية لحساب عدد الأسطر (أو فواصل الأسطر) داخل خلية في Excel، لتمكينك من إدارة بياناتك بكفاءة أكبر وتبسيط سير عملك.
تقسيم محتويات الخلايا متعددة الأسطر بسهولة إلى صفوف أو أعمدة في Excel
عدّ عدد الأسطر في خلية باستخدام الصيغ
لا يوفّر Excel أمرًا مباشرًا لعدّ فواصل الأسطر في خلية، لكن يمكنك تحقيق ذلك بسهولة باستخدام الدوال المدمجة. تُمكّنك الصيغ التالية من عدّ عدد الأسطر في خلية—وهو ما يساوي عدد فواصل الأسطر زائد واحد—مما يُعدّ مفيدًا بشكل خاص عند تحليل ردود الاستبيانات أو حقول التعليقات متعددة العناصر أو العناوين المخزّنة في خلايا فردية.
1. حدد الخلية الفارغة التي تريد عرض العدد فيها، ثم أدخل الصيغة أدناه واضغط مفتاحEnter. تأكد من تعديل مرجع الخلية ليشير إلى الخلية التي تريد تحليلها (على سبيل المثال، استخدم)A2).
=LEN(A2)-LEN(SUBSTITUTE(A2,CHAR(10),«»))+1
الشرح: تحسب هذه الصيغة عدد فواصل الأسطر (الممثلة بـ)CHAR(10)) في الخلية، ثم تضيف 1 للحصول على إجمالي عدد الأسطر.
ملاحظة: في هذه الصيغة،A2 هي الخلية التي تريد عدّ أسطرها. إذا كانت بياناتك في خلية أخرى، فما عليك سوى تعديل المرجع.
2. بعد إدخال الصيغة، ابقَ على تحديد الخلية الناتجة. ولتطبيق الصيغة تلقائيًّا على الخلايا الأخرى في نفس العمود، اسحب مقبض التعبئة (Fill Handle) لأسفل ليُملأ العدد المطلوب من الأسطر في الخلايا الإضافية، كما هو موضح في لقطة الشاشة أدناه.
نصائح واعتبارات عملية:
توفر الصيغ حلاً سريعًا وغير مدمر لعدّ فواصل الأسطر، وتعمل بكفاءة في معظم سيناريوهات تحليل البيانات الاعتيادية. ومع ذلك، قد تكون طريقة الصيغ أقل كفاءة مقارنةً بالطرق الأخرى في الحالات الأكثر تقدمًا—مثل معالجة نطاقات كبيرة دفعة واحدة أو استخراج نتائج لتحديدات متعددة.
إنشاء مخطط عداد السرعة بسرعة في Excel:
تتيح لك أداةKutools لـ Excelالمميزةتقسيم الخلاياقسّم محتويات الخلية بسهولة وفقًا للمسافات أو الفواصل أو الأسطر الجديدة أو أي فواصل أخرى إلى صفوف أو أعمدة منفصلة في Excel، كما يظهر في لقطة الشاشة أدناه! وبعد تحديد فواصل الأسطر، يمكنك استخدام هذه الأداة لإجراء تحويلات وتحليلات إضافية على البيانات النصية متعددة الأبعاد، مما يبسّط سير عملك بشكل كبير!
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
ماكرو VBA لعدّ فواصل الأسطر في الخلايا المحددة وعرض عدد الأسطر
عند التعامل مع مجموعات بيانات كبيرة أو الحاجة إلى عدّ عدد الأسطر (فواصل الأسطر) عبر خلايا متعددة دفعة واحدة، يوفّر استخدام ماكرو VBA كفاءةً ومرونةً تفوق الصيغ اليدوية. ويُعدّ هذا الحل مثاليًّا لمهام المعالجة الدفعية، مثل تلخيص الردود، أو إعداد البيانات للتصدير، أو إجراء فحوصات الجودة على النصوص المستوردة.
فيما يلي كيفية عدّ عدد الأسطر في كل خلية محددة بسرعة باستخدام ماكرو VBA. سيعرض ذلك النتائج في مربع رسالة، مما يسمح لك بمراجعة الأعداد نظرةً سريعة دون تعديل بيانات ورقة العمل.
1. انقرأدوات المطور > Visual Basic لفتح نافذةMicrosoft Visual Basic for Applications. في محرر VBA، انقرإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في الوحدة النمطية الجديدة:
Sub CountLinesInSelection()
Dim rng As Range
Dim cell As Range
Dim lineCount As Long
Dim result As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set rng = Application.InputBox("Select the range to count line breaks in:", xTitleId, rng.Address, Type:=8)
If rng Is Nothing Then Exit Sub
result = ""
For Each cell In rng
If Not IsEmpty(cell.Value) Then
lineCount = Len(cell.Value) - Len(Replace(cell.Value, Chr(10), "")) + 1
Else
lineCount = 0
End If
result = result & "Cell " & cell.Address(False, False) & ": " & lineCount & " line(s)" & vbCrLf
Next cell
MsgBox result, vbInformation, "Line Break Counts"
End Sub2.بعد إدخال الكود، انقر زر
تشغيل (Run)لتنفيذ الماكرو. ستظهر نافذة منبثقة تطلب منك تحديد نطاق الخلايا الذي تريد تحليله—ويمكن أن يكون أي نطاق متصل أو غير متصل.
3.سيقوم الماكرو بعدّ عدد فواصل الأسطر (عودة السيارة) في كل خلية محددة، ثم يعرض مربع ملخّص يسرد كل خلية مع عدد أسطرها المقابل. وإذا كانت الخلية فارغة، فسيكون عدد الأسطر المرتجع 0.
نصائح واستكشاف الأخطاء وإصلاحها:
- لا يُعدّل هذا الماكرو بيانات ورقة عمل موجودة، مما يجعله مناسبًا عندما تحتاج إلى ملخص سريع أو فحص تشخيصي دون تعديل البيانات أو إضافة أعمدة إضافية.
- إذا تلقيتَخطأ إذنعند تشغيل الماكرو، فتأكد من أن ملفك محفوظ كملف يدعم الماكرو (*.xlsm) وأن الماكرو مفعّل في إعدادات الأمان بـ Excel.
- عند تطبيق هذه الطريقة على تحديدات كبيرة جدًّا، قد تكون رسالة العرض طويلة؛ لذا يُفضَّل تقييد نطاق الخلايا لتحسين سهولة القراءة.
يُعد استخدام VBA مفيدًا بشكل خاص للتحليل الدفعي، أو إعداد التقارير، أو عند الحاجة إلى نظرة عامة سريعة عبر مناطق مختلفة من ورقة العمل. وهو خيارٌ مرن لمستخدمي الطاقة، لكنه لا يُحدّث النتائج تلقائيًّا كما تفعل الصيغ عند تغيير قيم الخلايا، لذا يلزم إعادة تشغيله يدويًّا بعد إجراء التعديلات.
مقالات ذات صلة:
- كيف يمكن تقسيم محتويات خلية تحتوي على أسطر متعددة إلى صفوف أو أعمدة منفصلة في Excel؟
- كيفية وضع عدة أسطر نصية في خلية واحدة في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل