Skip to main content

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

Author: Xiaoyang Last Modified: 2025-07-21

عند العمل مع جداول بيانات 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: أحدث ثورة في تحليل البيانات من خلال: التنفيذ الذكي |توليد الشيفرة |إنشاء الصيغ المخصصة |تحليل البيانات وتوليد الرسوم البيانية |استدعاء الوظائف المحسنة
الميزات الشائعة: البحث، تمييز أو وضع علامة على المكررات | حذف الصفوف الفارغة | دمج الأعمدة أو العنوان دون فقدان البيانات | تقريب ...
بحث متقدم: بحث V متعدد المعايير | بحث V متعدد القيم | بحث في عدة ورقات | مطابقة غامضة ....
قائمة منسدلة متقدمة: إنشاء قائمة منسدلة بسرعة | قائمة منسدلة تابعة | قائمة منسدلة متعددة الاختيار ....
إدارة الأعمدة: إضافة عدد محدد من الأعمدة | نقل الأعمدة | تبديل حالة إظهار الأعمدة المخفية | مقارنة النطاق والأعمدة ...
ميزات مميزة: التركيز على الشبكة | عرض التصميم | شريط الصيغ المحسن | أدوات المصنف & أدوات الورقة العمل | مكتبة النص التلقائي (Auto Text) | منتقي التاريخ | دمج البيانات | تشفير/فك تشفير الخلايا | إرسال البريد الإلكتروني حسب القائمة | مرشح متقدم | تصفية خاصة (تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل15 مجموعة أدوات:12 أداة نصية (إضافة نص، حذف الأحرف المحددة، ...) | أكثر من50 نوع من الرسوم البيانية (مخطط جانت، ...) | أكثر من40 صيغة عملية (حساب العمر بناءً على تاريخ الميلاد، ...) |19 أداة إدراج (إدراج رمز الاستجابة السريعة، إدراج صورة من المسار، ...) |12 أداة تحويل (تحويل إلى كلمات، تحويل العملة، ...) |7 أدوات دمج وتقسيم (دمج متقدم للصفوف، تقسيم الخلايا، ...) | ... والمزيد

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


Office Tab يقدم واجهة التبويب لـ Office، ويجعل عملك أسهل بكثير

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