كيف تُدرج صفًا فارغًا بعد نصٍ معيّن في Excel؟
في Excel، يُسهّل إدراج صف فارغ بعد نص معيّن قراءة البيانات وتنظيمها بكفاءة أعلى. سواءً كنت تعمل على قائمة مهام أو معاملات أو أي بيانات منظمة، فإن إضافة صفوف فارغة بعد نص معيّن تُساعد في فصل المدخلات وجمع العناصر ذات الصلة معًا لتعزيز الوضوح. ويكون هذا الإجراء مفيدًا بشكل خاص عند إعداد التقارير أو الفواتير أو السجلات التي تتطلب بروز كتل المعلومات المرتبطة بوضوح. وبدون فواصل واضحة، قد يصبح تحليل مجموعات البيانات الكبيرة أو مراجعتها أو التنقل فيها أمرًا صعبًا. وعلى الرغم من أن إدراج الصفوف فارغة يدويًّا قد يكون مرهقًا—خاصةً في القوائم الطويلة—فإن هناك طرقًا آلية وشبه آلية تُبسّط هذه العملية بشكل كبير.
 |  |  |
➤ إدراج صفوف فارغة بعد نص معين باستخدام كود VBA
➤ إدراج صفوف فارغة بعد نص معين باستخدام KUTOOLS AI
➤ إدراج صفوف فارغة بعد نص معين باستخدام صيغ Excel (العمود المساعد)
إدراج صفوف فارغة بعد نص معيّن باستخدام كود VBA
باستخدام VBA (Visual Basic for Applications)، يمكنك أتمتة إدراج صفوف فارغة تلقائيًا بعد قيم نصية معيّنة في مجموعة البيانات الخاصة بك. ويُعدّ هذا الحل مثاليًا لمجموعات البيانات الكبيرة أو المهام المتكررة، إذ يمنحك VBA المرونة لتخصيص الشروط والنطاقات المعالَجة—مما يجعله خيارًا ممتازًا إذا كانت معاييرك أو هيكل ورقة العمل عرضة للتغيّر مع مرور الوقت.
⚠️ ملاحظة:احفظ دائمًا نسخة احتياطية قبل تشغيل أي ماكرو، لأن VBA قد يؤدي إلى تغييرات لا يمكن التراجع عنها. كن حذرًا عند تعديل ملفات العمل الحالية.
1. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذة الوحدة النمطية:
📜 كود VBA: إدراج صفوف فارغة بعد النص المعيّن
Sub Insertrowbelow()
' Updated by Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("Please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "The selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
Rows(xRng.Cells(i + 1, 1).Row).Insert shift:=xlDown
End If
Next
End Sub💡 تلميح:في الكود أعلاه، يمكنك استبدال"قيد التنفيذ"بأي نص تريد استهدافه. تأكد من أن النص مطابق تمامًا (بما في ذلك حالة الأحرف والمسافات) لتجنب نتائج غير صحيحة.
3. اضغط على مفتاحF5 لتشغيل الماكرو. في مربع الحوار الظاهر، حدد العمود الذي يحتوي على النص المعيّن الذي تريد معالجته. وللمجموعات الكبيرة من البيانات، قم بالتصغير أو استخدم عوامل التصفية لمساعدتك على إجراء تحديدٍ دقيق.
4. انقر علىموافق. سيقوم الماكرو بإدراج صفوف فارغة بعد كل خلية تحتوي على النص المحدد. راجع نتائجك للتأكد من أن العملية تحقّق التوقعات، وقم بتعديل معاييرك إذا لزم الأمر.
| | |
✅ المزايا:يُؤتمت العمل المتكرر على مجموعات البيانات الكبيرة، ويمكن تخصيصه بالكامل حسب الكلمات المفتاحية ونطاقات الأعمدة المختلفة.
⚠️ القيود:يتطلب الأمر معرفةً أساسيةً بلغة VBA، ولا يمكن التراجع عن الإجراءات ما لم تكن لديك نسخة احتياطية محفوظة.
🛠️ تلميح لاستكشاف الأخطاء وإصلاحها:إذا لم تُدرج صفوف فارغة، فتأكد من أن النص المستهدف يتطابق تمامًا مع المحتوى الموجود في خلاياك. شغّل الماكرو على عمود واحد في كل مرة لتجنب النتائج غير المقصودة.
إدراج صفوف فارغة بعد نص معيّن باستخدام KUTOOLS AI
هل تجد صعوبة في إدراج صفوف فارغة بعد نص معيّن في Excel؟ دعKUTOOLS AI يبسّط المهمة لك! بفضل أتمتة الذكاء الاصطناعي، لن تضطر بعد الآن إلى فحص مجموعة البيانات يدويًّا أو كتابة أي كود VBA. سيقوم KUTOOLS AI فورًا بتحديد الصفوف التي تحتوي على النص المعيّن ويُدرج صفوفًا فارغة بالضبط حيثما تحتاج إليها.
بعد تثبيت Kutools لـ Excel، انتقل ببساطة إلىKutools > مساعد الذكاء الاصطناعيلفتح جزء «KUTOOLS AI Aide».
- حدد عمود البيانات الذي ترغب في معالجته بإدراج صفوف فارغة استنادًا إلى نص معيّن.
- في مربع الدردشة، اكتب طلبك بوضوح. على سبيل المثال:
أدرج صفًا فارغًا بعد النص المعيّن «قيد التنفيذ» من التحديد - اضغطEnter أو انقر على زرإرسال. سيقوم KUTOOLS AI بتحليل تعليماتك، وبعد الانتهاء، انقر علىتنفيذلإجراء العملية.
💡 نصائح:
• يُعد KUTOOLS AI خيارًا مثاليًا للمستخدمين الراغبين في تجنب استخدام الصيغ أو VBA، فهو سهل الاستخدام وسريع الأداء. ومع ذلك، تأكد من أن كلماتك المفتاحية مميزة بما يكفي لتجنب إدراج صفوف فارغة في أماكن غير صحيحة، وراجع النتائج دائمًا بعد التنفيذ.
• لضمان أفضل النتائج، حدد معاييرك بوضوح في دردشة الذكاء الاصطناعي، وفكّر في إنشاء نسخة احتياطية من ورقة عملك قبل تنفيذ العمليات الجماعية.
✅ المزايا:لا حاجة إلى معرفة البرمجة، ويعمل بسلاسة مع مجموعات البيانات الكبيرة أو المعقدة، ويتيح إجراء تعديلات سريعة حسب مختلف المعايير.
⚠️ القيود:يتطلب تثبيت إضافة Kutools لـ Excel. وقد تحتاج بعض المهام المعقدة أو شديدة التحديد إلى تعليمات أكثر وضوحًا لتعمل كما هو متوقع.
إدراج صفوف فارغة بعد نص معيّن باستخدام صيغ Excel (عمود مساعد)
إذا كنت تفضّل عدم استخدام VBA أو الإضافات، فإن صيغ Excel المقترنة بعمود مساعد توفّر طريقة بسيطة وشفافة لتحديد أماكن إدراج صفوف فارغة. هذا الحل مناسب أكثر لمجموعات البيانات الصغيرة إلى المتوسطة الحجم، خاصةً عندما تُقدّر الوضوح والتحكّم اليدوي على الأتمتة.
كيف تعمل هذه الطريقة:ستقوم بإنشاء عمود مساعد بجانب بياناتك لتمييز الصفوف التي تحتوي على نص معين. بعد ذلك، ومن خلال فرز أو تصفية العمود المساعد، يمكنك تحديد المواقع يدويًّا وإدراج صفوف فارغة في الأماكن المناسبة.
✅ المزايا:لا يتطلب ماكروهات أو إضافات، ويوفّر شفافية كاملة تتيح لك معاينة جميع التغييرات قبل تطبيقها.
⚠️ القيود:يتطلب خطوات يدوية إضافية، ولا يُوصى به لمجموعات البيانات الكبيرة جدًّا أو للشروط المعقدة للغاية.
الخطوات:
- أضف عمودًا مساعدًا.
افترض أن بياناتك موجودة في العمود A، وتريد إدراج صف فارغ بعد كل خلية تحتوي علىقيد التنفيذ. أضف عمودًا جديدًا (مثل العمود B)، وأدخل الصيغة التالية فيB1:=IF(A1="In progressing",ROW(),FALSE) - اسحب الصيغة لأسفل.
استخدم مقبض التعبئة لنسخ الصيغة عبر عمود المساعدة، وتقييم كل صف تلقائيًا. - حدّد الصفوف المطابقة.
استخدم التصفية أو الفرز في عمود المساعدة لتجميع جميع الصفوف التي تحتوي على قيم رقمية (أي المطابقات) معًا. - أدرج صفوفًا فارغة يدويًّا.
لكل صف محدد، استخدم قائمة السياق في Excel لإدراج صف فارغ مباشرةً أسفله.
💡 تلميح:
• لمطابقة جزء من النص بدلًا من القيم الدقيقة، استخدم هذه الصيغة:
=IF(ISNUMBER(SEARCH("progress",A1)),ROW(),FALSE)• إذا كانت مجموعة البيانات الخاصة بك تحتوي على عناوين، ابدأ بصيغتك في أول صف بيانات (مثل A2)، وقم بضبط المرجعيات وفقًا لذلك. وبعد إدراج الصفوف، يمكنك حذف عمود المساعدة لتنظيف الورقة.
⚠️ مشكلات شائعة:
• قد تكون هذه الطريقة اليدوية مرهقة وعرضة للخطأ عند التعامل مع مجموعات بيانات كبيرة.
• تحقَّق دائمًا مرتين من إدراج الصفوف الفارغة بشكل صحيح، إذ قد تؤثر عوامل مثل التصفية أو الدمج أو الصفوف المخفية على الدقة.
يُعدّ KUTOOLS AI خيارًا مثاليًّا خاصةً إذا كنت ترغب في تجنُّب التعامل مع الصيغ أو VBA. فهو سهل الاستخدام وممتاز للمستخدمين الذين يعطون الأولوية للراحة والسرعة. وعلى الرغم من أن KUTOOLS AI يتعامل بشكل عام مع مطابقة النصوص بكفاءة، تأكد من أن كلماتك المفتاحية فريدة بما يكفي لتجنب إدراج صفوف فارغة غير متوقعة. وإذا كنت مهتمًّا باستكشاف أدوات إضافية لأتمتة Excel أو تعزيز إنتاجيتك،فإن موقعنا الإلكتروني يقدم آلاف الدروس التعليميةلمساعدتك على تحسين سير عملك.
مقالات ذات صلة إضافية حول إدراج صفوف:
- نسخ الصف وإدراجه عدة مرات أو تكرار الصف X مرات
- في عملك اليومي، هل سبق أن حاولت نسخ صفٍ واحد أو مجموعة صفوف ثم إدراجها عدة مرات أسفل الصف الحالي في ورقة العمل؟ على سبيل المثال، لديك نطاق من الخلايا وتريد نسخ كل صف ولصقه ثلاث مرات متتالية تحته، كما يظهر في لقطة الشاشة التالية. كيف يمكنك تنفيذ هذه المهمة في Excel؟
- إدراج صفوف فارغة عند تغيُّر القيمة في Excel
- افترض أن لديك نطاقًا من البيانات، وترغب الآن في إدراج صفوف فارغة بينها كلما تغيّرت القيمة، وذلك لفصل القيم المتماثلة المتتالية في عمود واحد، كما يظهر في لقطات الشاشة التالية. في هذه المقالة، سأعرض لك بعض الحيل التي تساعدك على حل هذه المشكلة بسهولة.
- إدراج صفوف أو أعمدة متعددة بسرعة في أوراق Google
- في هذه المقالة، سأعرض لك طريقةً سهلةً لإدراج صفوف أو أعمدة فارغة متعددة في ورقة Google.
- إدراج صف فارغ فوق نص معيّن في Excel
- عندما تعمل على ورقة عمل، هل سبق أن حاولت إدراج صف فارغ فوق نص معيّن في عمود؟ على سبيل المثال، يحتوي العمود A على قائمة بأسماء معينة، وأرغب الآن في إدراج صفوف فارغة مباشرةً فوق كل خلية تحتوي على الاسم «Mike»، كما يظهر في لقطة الشاشة على اليسار. قد لا توفّر 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل