كيف يمكن تكرار صف استنادًا إلى قيمة الخلية في عمود؟
عند العمل مع جداول بيانات Excel، قد تحتاج أحيانًا إلى تكرار الصف بأكمله بناءً على القيمة الموجودة في عمود معيّن. فعلى سبيل المثال، افترض أن لديك جدولًا يحتوي العمود D فيه على أرقام، وهدفك هو نسخ كل صف أو إدراجه بعدد المرات المطابق للقيمة الموجودة في خليته المقابلة بالعمود D. يُعدّ هذا الأسلوب مفيدًا لتوسيع البيانات، أو إعداد مجموعات بيانات للاختبار، أو محاكاة مستويات المخزون، أو إنشاء سطور طلبات متكررة. وإنجاز هذه المهمة بكفاءة دون اللجوء إلى التكرار اليدوي يحافظ على سلامة البيانات ويعزز سرعة سير العمل بشكل ملحوظ، خاصةً عند التعامل مع جداول ضخمة.
 |  |  |
تكرار صف مكرر عدة مرات استنادًا إلى قيم الخلايا باستخدام كود VBA
نسخ وإدراج صفوف استنادًا إلى عدد مرات محدَّد باستخدام أداة مفيدة – Kutools لـ Excel
تكرار صف مكرر عبر تحويل Power Query
تكرار صف مكرر عدة مرات استنادًا إلى قيم الخلايا باستخدام كود VBA
إذا كنت بحاجة إلى إنشاء نسخ مكررة بسرعة من صفٍّ كامل استنادًا إلى القيم الموجودة في عمود معيّن (مثل العمود D)، فإن VBA يوفّر حلاً مباشرًا وفعالًا. ويُعدّ هذا الأسلوب مثاليًا خصوصًا عند التعامل مع مجموعات بيانات ضخمة، حيث يُتمّ الأتمتة ويضمن الدقة المطلقة. ومع ذلك، يتطلب استخدام VBA معرفةً أساسية بلسان تبويب «المطوِّر» في Excel وفهمًا لكيفية تشغيل ماكرو. وتكمُن الميزة الرئيسية هنا في المرونة—فيمكنك بسهولة تعديل الكود ليتوافق مع أعمدة أو نطاقات مختلفة حسب احتياجاتك. ومن ناحية أخرى، إذا لم تكن مرتاحًا لاستخدام VBA أو كانت سياسات الأمان في بيئة عملك تمنع تشغيل الماكرو، فننصحك بالاطلاع على أحد الحلول البديلة المذكورة أدناه.
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقرإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةالوحدة النمطية.
كود 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، بما يتماشى مع متطلباتك.
تكرار نسخ وإدراج صفوف استنادًا إلى عدد مرات محدَّد باستخدام أداة مفيدة – Kutools لـ Excel
إذا كنت تفضّل طريقة لا تتطلب استخدام الكود، أو رغبت في واجهة سهلة الاستخدام لإدارة التكرار الدفعي، فإنKutools لـ Excelتوفّر حلاًّ عمليًّا. تتيح لك ميزةنسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددةتكرار نسخ وإدراج الصفوف بسرعة وفقًا للعدد المحدَّد في الخلايا ذات الصلة. وهي مثالية لأولئك الذين يتعاملون بانتظام مع عمليات تكرار الصفوف هذه ويرغبون في طريقة أكثر وضوحًا وتخصيصًا. تحافظ Kutools على تنسيق الجدول الأصلي أثناء التكرار، مما يقلّل من خطر حدوث أخطاء عرضية. وتعمل هذه الطريقة بسلاسة بغض النظر عن خبرتك في VBA، وتحسّن الكفاءة بشكل ملحوظ مع النطاقات متوسطة إلى كبيرة الحجم.
- انقرKutools>إدراج>صف مكرر/أعمدة استنادًا إلى قيمة الخليةلتمكين هذه الميزة؛
- بعد ذلك، اختر خيارنسخ وإدراج صفوف، وحدّد خلايانطاق التوليدومرات التكراربشكل منفصل في مربع الحوار. ثم تأكّد من اختياراتك وانقرموافق.
تكرار صف مكرر عبر تحويل Power Query
يقدّم Power Query حلاً قويًّا وقابلًا للتكرار لتكرار الصفوف بناءً على قيمة عمود—وهو مثالي للجداول الكبيرة أو عند الحاجة إلى تحديث البيانات بشكل متكرر. وباستخدام هذه الأداة، يمكنك توسيع الصفوف وفقًا للمؤشرات الرقمية دون الحاجة إلى صيغ أو أكواد. وتُعد هذه الطريقة مثالية للمستخدمين الذين يبحثون عن عملية مرئية وواضحة خطوة بخطوة، مع ضمان إمكانية التكرار عند تحديث البيانات مستقبلاً.
1. أضف بياناتك إلى جدول Excel (حدد النطاق واضغط على)Ctrl+T). بعد ذلك، انتقل إلىبيانات > من جدول/نطاقلتحميل جدولك إلى Power Query.
2. في محرر Power Query، اختر تبويبإضافة عمود، ثم انقرعمود مخصص.
3. اكتب الصيغة التالية لتوليد قائمة لكل صف وفقًا للقيمة في العمود D. ()ملاحظة: يجب استبدال [D] باسم رأس العمود الفعلي لديك. على سبيل المثال، هنا سأختارعدد مرات التكرار، ثم أنقر على زرإدراجلاستبدال المعامل [D].)
List.Repeat({1}, [D])
4. انقر على زرتوسيعالموجود بجانب العمود المخصص الجديد، ثم انقرتوسيع إلى صفوف جديدة.
5. بعد ذلك، يمكنك ملاحظة أن البيانات قد تم تكرارها بناءً على القيم الموجودة في العمود D، كما هو موضّح في لقطة الشاشة:
6. قم بإزالة أعمدة المساعدة إذا لزم الأمر، ثم انقرإغلاق وتحميللإرجاع البيانات إلى 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل