Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية إدراج صفوف فارغة بسرعة في Excel؟

Author Xiaoyang Last modified

قد يواجه معظمنا مشكلة في Excel حيث نحتاج إلى إدراج صف فارغ بين كل صف من الصفوف الموجودة، وجميعنا نعرف كيفية إدراج صف فارغ يدويًا. لكن إدراج مئات الصفوف الفارغة سيكون مهمة شاقة إذا قمت بإدراج كل صف على حدة. إليك بعض الحيل السريعة لمساعدتك في حل هذه المشكلة.

إدراج صفوف فارغة باستخدام وظيفة الترتيب
إدراج عدد معين من الصفوف الفارغة بسرعة باستخدام Kutools لـ Excel

إدراج صفوف فارغة بالتناوب باستخدام كود VBA


إدراج صفوف فارغة باستخدام وظيفة الترتيب

هذه الطريقة أسهل ولكنها غير مباشرة لإدراج صفوف فارغة بين الصفوف الحالية. يمكنك القيام بما يلي:

1. ستحتاج إلى عمود فارغ بجانب بياناتك. على سبيل المثال، لدي ورقة عمل تتكون من A1:E9، يمكنك استخدام العمود F.

2. أدخل الرقم 1 في الخلية F1 وأدخل الرقم 2 في الخلية F2.

3. حدد الرقم 1 والرقم 2، ثم انقر نقرًا مزدوجًا على مقبض التعبئة، وسيقوم Excel بتعبئة الخلايا تلقائيًا في العمود F.

4. بعد ذلك انسخ هذا العمود الجديد F (F1:F9)، وحدد الخلية F10، والصق الأرقام التي تم تعبئتها تلقائيًا من F1:F9. انظر الصورة:

fill a series numbers in a new column

5. وبعد ذلك اضغط على البيانات > ترتيب، ستظهر نافذة تحذير بالترتيب، حدد خيار توسيع التحديد، واضغط على ترتيب... انظر الصورة:

select Expand the selection option in the dialog box

6. ستظهر نافذة الترتيب، اختر الرقم 1 من قائمة الترتيب المنسدلة، ثم اضغط على زر موافق. انظر الصورة:

set options in the sort dialog box

ثم يتم إدراج صفوف فارغة جديدة بين الصفوف الحالية. انظر الصورة:

new blank rows have been inserted in the exiting rows

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


إدراج عدد معين من الصفوف الفارغة بسرعة باستخدام Kutools لـ Excel

الطريقتان السابقتان تشير فقط إلى إدراج صفوف فارغة بين كل صف، أما بالنسبة لإدراج صف فارغ أو عدة صفوف بعد كل صف n، كيف يجب أن تقوم بذلك؟ هنا أوصي بأداة إدراج صفوف وأعمدة فارغة من Kutools لـ Excel. هذه الأداة يمكن أن تساعد في إدراج عدد معين من الصفوف الفارغة بسرعة بعد كل صف n ضمن نطاق معين. الرجاء القيام بما يلي.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

1. حدد النطاق الذي تريد إدراج الصفوف الفارغة فيه، واضغط على Kutools > إدراج > إدراج صفوف وأعمدة فارغة. انظر الصورة:

click Insert Blank Rows & Columns feature of kutools

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

>specify the options in the dialog box

ثم يمكنك رؤية أن صفوف فارغة معينة قد تم إدراجها بعد كل صفَّين. انظر الصور:

certain blank rows are inserted after specific numner of rows

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.


إدراج صفوف فارغة بالتناوب باستخدام كود VBA

إذا كانت الطريقة السابقة معقدة بعض الشيء، يمكنك استخدام الكود التالي VBA لحلها.

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

كود VBA: إدراج صفوف فارغة في Excel

Sub InsertBlackRows()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

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

vba code to select data range

ثم يتم إدراج صف فارغ جديد بين كل صفَّين. انظر الصورة:

a new blank row has been inserted between every two rows


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

أفضل أدوات الإنتاجية لمكتب العمل

🤖 Kutools AI Aide: أحدث ثورة في تحليل البيانات اعتمادًا على: التنفيذ الذكي |  توليد الأكواد |  إنشاء الصيغ المخصصة |  تحليل البيانات وتوليد الرسوم البيانية |  استخدام Kutools Functions...
ميزات شائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو الخلايا بدون فقدان البيانات | تقريب بدون الصيغة...
بحث متقدم: بحث بمعايير متعددة VLookup | بحث بقيم متعددة VLookup | بحث في عدة ورقات VLookup | مطابقة غامضة...
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة معتمدة | قائمة منسدلة متعددة الاختيارات...
مدير الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاقات والأعمدة...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | مدير أدوات المصنف وورقة العمل | مكتبة النص التلقائي | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب الجدول | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...)...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع رسم بياني (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد
استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من40 لغة أخرى!

عزز مهاراتك في 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 Tabs PowerPoint
  • حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
  • مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
  • الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
  • تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد