كيف يمكن نسخ صف وإدراجه عدة مرات، أو تكراره X مرة في Excel؟
هل سبق أن حاولت في عملك اليومي نسخ صف واحد أو جميع الصفوف ثم إدراجه عدة مرات أسفل بياناتك الحالية في ورقة العمل؟ على سبيل المثال، لديك نطاق من الخلايا وتريد نسخ كل صف ولصقه ثلاث مرات متتالية تحته، كما يظهر في لقطة الشاشة التالية. كيف يمكنك تنفيذ هذه المهمة في Excel؟
 |  |  |
- نسخ صف معيّن وإدراجه عدة مرات باستخدام كود VBA
- نسخ كل صف وإدراجه عدة مرات باستخدام كود VBA
- نسخ كل صف وإدراجه عدة مرات بناءً على رقم معيّن باستخدام ميزة رائعة
نسخ صف معيّن وإدراجه عدة مرات باستخدام كود VBA
إذا كنت ترغب في تكرار صف معيّن مرة واحدة فقط x عدد من المرات، فجرّب الكود التالي المكتوب بلغة VBA. يُرجى اتباع الخطوات التالية:
1. حدّد الصف الذي تريد نسخه وإدراجه عدة مرات، ثم اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح ذلك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذةالوحدة النمطية (Module).
كود VBA: تكرار صف معيّن واحد عدة مرات:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. بعد لصق الكود، اضغط على مفتاحF5 لتشغيله، وستظهر نافذة منبثقة تطلب منك إدخال عدد المرات التي تريد تكرار الصف بها. انظر لقطة الشاشة:
4. ثم انقر على زرموافق، وسيتم إدراج ثلاثة صفوف جديدة منسوخة أسفل الصف المحدد. انظر لقطة الشاشة:
نسخ كل صف وإدراجه عدة مرات بناءً على رقم معيّن بسهولة
عادةً، لا توجد طريقة فعّالة لنسخ وإدراج صفوف متعددة عدة مرات سوى النسخ والإدراج يدويًا. ولكن مع ميزةKutools لـ Excel's نسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، يمكنك حل هذه المشكلة بسهولة!انقر لتنزيل Kutools لـ Excel!
Kutools لـ Excel: مع أكثر من 300 إضافة مفيدة لبرنامج Excel، جرّبها مجانًا دون أي قيود لمدة 60 يومًا.نزّل وجربها الآن مجانًا!
نسخ كل صف وإدراجه عدة مرات باستخدام كود VBA
لتكرار كل الصفوف عدة مرات ضمن نطاق محدد، يمكنك استخدام كود VBA التالي. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيفتح ذلك نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر علىإدراج>وحدة نمطية (Module)، والصق الكود التالي في نافذةالوحدة النمطية (Module).
كود VBA: تكرار كل صف عدة مرات:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub3. ثم اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بإدخال عدد المرات التي تريد تكرار كل سجل فيها. انظر لقطة الشاشة:
4. ثم انقر على زرموافق، وسيتم نسخ كل صف وإدراجه 3 مرات أسفل الصفوف النشطة. انظر لقطة الشاشة:
| | |
ملاحظة: في الكود أعلاه، يشير الحرفA إلى أن نطاق البيانات يبدأ من العمود A. إذا كانت بياناتك تبدأ من العمودK، يُرجى تغييرA إلىK وفقًا لاحتياجاتك.
نسخ كل صف وإدراجه عدة مرات بناءً على رقم معيّن باستخدام ميزة رائعة
قد لا تكون معتادًا على كود VBA، أو قد تقلق من أن يتسبب في تعطيل بياناتك. هنا، نقدّم لك ميزة رائعة منKutools لـ Excel، وهي أداةنسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، التي تتيح لك نسخ الصفوف وإدراجها بسرعة بناءً على العدد الذي تحدده.
نصائح:لتطبيق ميزةنسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، يجب عليك أولًا تنزيلKutools لـ Excel، ثم تطبيق الميزة بسرعة وسهولة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. أدخل أرقام التكرار التي تريدها لصفٍّ مكرر في قائمة خلايا بجانب بياناتك، كما في لقطة الشاشة:
2. انقر علىKutools > إدراج > نسخ أو إدراج صفوف / أعمدة وفقًا للبيانات المحددة، انظر لقطة الشاشة:
3. في مربع حوارنسخ وإدراج صفوف / أعمدة، اختر الخيارنسخ وإدراج صفوففي قسمالنوع، ثم حدد نطاق البيانات الذي تريد تكراره، وبعد ذلك حدّد عدد مرات التكرار لإنشاء الصفوف. انظر لقطة الشاشة:
4. بعد ذلك، انقر على زرموافقأوتطبيق، وستحصل على النتيجة التي تريدها:
| |  |
انقر لتنزيل Kutools لـ 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل