Skip to main content

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

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

Author Xiaoyang Last modified

عند العمل مع جداول بيانات 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 المذكورة أعلاه.

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

🤖 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
  • قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد