Skip to main content

كيفية تكرار الصفوف بناءً على قيمة الخلية في عمود؟

Author: Xiaoyang Last Modified: 2025-08-06

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

Screenshot showing data table with numbers in column D before duplicating rows based on values Arrow Screenshot showing data table after duplicating rows based on column D values in Excel

تكرار الصفوف عدة مرات بناءً على قيم الخلايا باستخدام كود VBA

نسخ وإدراج الصفوف بناءً على عدد مرات محدد باستخدام أداة عملية - Kutools لـ Excel

تكرار الصفوف عبر تحويل Power Query


تكرار الصفوف عدة مرات بناءً على قيم الخلايا باستخدام كود VBA

إذا كنت بحاجة إلى إنشاء نسخ مكررة للصفوف بالكامل بسرعة وفقًا للقيم الموجودة في عمود محدد (على سبيل المثال، في العمود D)، فإن VBA يقدم حلاً مباشرًا وفعالاً. هذه الطريقة ذات قيمة خاصة عند التعامل مع مجموعات بيانات كبيرة، حيث إنها تؤتمت العملية وتساعد في ضمان الدقة. ومع ذلك، يتطلب العمل مع VBA بعض الإلمام الأساسي بلوحة أدوات Developer في Excel وفهم كيفية تنفيذ الماكروهات. الميزة الرئيسية هي المرونة - يمكن تعديل الكود ليتناسب مع نطاقات مختلفة أو الأعمدة المستهدفة. من ناحية أخرى، إذا لم تكن مرتاحًا لاستخدام VBA أو تمنع سياسات الأمان تشغيل الماكروهات في بيئتك، فالرجاء النظر في أحد الحلول البديلة أدناه.

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق Insert > Module، والصق الكود التالي في نافذة الوحدة.

كود VBA: تكرار الصفوف عدة مرات بناءً على قيمة الخلية:

Sub CopyData()
'Updateby Extendoffice
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    Do While (Cells(xRow, "A") <> "")
        VInSertNum = Cells(xRow, "D")
        If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
           Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
           Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
           Selection.Insert Shift:=xlDown
           xRow = xRow + VInSertNum - 1
        End If
        xRow = xRow + 1
    Loop
    Application.ScreenUpdating = False
End Sub

3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود. سيتم تكرار الصفوف بالكامل عدة مرات بناءً على قيمة الخلية في العمود D بما يطابق متطلباتك.

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

نسخ وإدراج الصفوف بناءً على عدد مرات محدد باستخدام أداة عملية - Kutools لـ Excel

إذا كنت تفضل استخدام طريقة بدون كتابة الشيفرات البرمجية، أو إذا كنت ترغب في واجهة مستخدم سهلة لإدارة النسخ المكرر للدُفعات، فإن Kutools لـ Excel تقدم حلاً عمليًا. توفر ميزة "نسخ وإدراج الصفوف/الأعمدة بناءً على قيمة الخلية" القدرة على نسخ وإدخال الصفوف بسرعة وفقًا للعدد المحدد في الخلايا ذات الصلة. هذا مثالي لأولئك الذين يتعاملون مع مثل هذه العمليات المتكررة بانتظام وبحاجة إلى عملية مرئية ومخصصة. تحافظ Kutools على التخطيط وتنسيق الجدول الأصلي أثناء النسخ، مما يقلل من خطر حدوث أخطاء عرضية. تعمل هذه الطريقة بسلاسة بغض النظر عن خبرتك في VBA وتعزز الكفاءة بشكل كبير لنطاقات البيانات المتوسطة إلى الكبيرة.

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...
  1. انقر على Kutools > Insert > Duplicate Rows/Columns Based on Cell Value لتفعيل هذه الميزة؛
  2. ثم اختر خيار نسخ وإدراج الصفوف، وحدد نطاق الإدراج ومرات التكرار على حدة في مربع الحوار. أكد اختياراتك واضغط على موافق.

Screenshot of Kutools for Excel Duplicate Rows/Columns feature dialog box


تكرار الصفوف عبر تحويل Power Query

يوفر Power Query حلًا قويًا ومتكرر الاستخدام لتكرار الصفوف بناءً على قيمة العمود - مثالي للجداول الكبيرة أو عندما تحتاج إلى تحديث البيانات بشكل متكرر. باستخدام هذه الأداة، يمكنك توسيع الصفوف وفقًا للمؤشرات العددية بدون صيغ أو شفرات. تعمل هذه الطريقة بشكل جيد مع المستخدمين الذين يفضلون عملية مرحلية وبصرية قابلة للتفسير وتتطلب تكرارًا مع تحديثات البيانات المستقبلية.

1. أضف بياناتك إلى جدول Excel (حدد النطاق واضغط على Ctrl+T). انتقل إلى Data > From Table/Range لتحميل الجدول إلى Power Query.

2. في محرر Power Query، حدد لوحة Add Column وانقر على Custom Column.

3. اكتب الصيغة التالية لتوليد قائمة لكل صف وفقًا للقيمة في العمود D. ( ملاحظة: يجب استبدال [D] باسم رأس العمود الحقيقي. على سبيل المثال، هنا سأختار Duplicate Times وانقر على زر Insert لاستبدال وسيلة [D].)

List.Repeat({1}, [D])

set options in the Power Query Editor

4. انقر على زر Expand بجانب العمود المخصص الجديد وانقر على Expand to New Rows.

Click the Expand button

5. بعد ذلك، يمكنك رؤية أن البيانات تم تكرارها بناءً على القيم في العمود D، انظر إلى لقطة الشاشة:

the data has been duplicated based on the values

6. قم بإزالة الأعمدة المساعدة إذا لزم الأمر، وانقر على Close & Load لإعادة البيانات إلى Excel.

نصائح: في كل مرة تتغير فيها بيانات المصدر، ما عليك سوى تحديث مخرجات Power Query لتحديث الصفوف المتكررة تلقائيًا. يضمن ذلك الكفاءة والدقة للعمليات المستمرة أو الآلية. يأتي Power Query مضمنًا في Excel 2016 والإصدارات الأحدث، وهو متاح كإضافة مجانية في الإصدارات السابقة. إذا لم يكن إصدار Excel لديك يحتوي على Power Query أو لا يمكنك إنشاء استعلامات، ففكر في استخدام أحد الحلول التي تعتمد على الصيغ أو VBA المذكورة أعلاه.

أفضل أدوات زيادة الإنتاجية لمجموعة Office

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

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


Office Tab يجلب تجربة التبويبات إلى Office، ويجعل عملك أسهل بكثير

  • فعّل تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint
  • افتح وأنشئ مستندات متعددة في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ جديدة.
  • يمنحك زيادة إنتاجية تصل إلى50% ويوفر عليك مئات النقرات يومياً!