كيفية نسخ وإدراج الصف عدة مرات أو تكرار الصف × مرات في إكسيل؟
في عملك اليومي ، هل سبق لك أن حاولت نسخ صف أو كل صف ثم إدراجه عدة مرات أسفل صف البيانات الحالي في ورقة العمل؟ على سبيل المثال ، لدي مجموعة من الخلايا ، الآن ، أريد نسخ كل صف ولصقه 3 مرات في الصف التالي كما هو موضح في لقطة الشاشة التالية. كيف يمكنك التعامل مع هذه الوظيفة في Excel؟
- انسخ وأدخل صفًا محددًا عدة مرات باستخدام رمز VBA
- انسخ وأدخل كل صف عدة مرات باستخدام رمز VBA
- انسخ وأدخل كل صف عدة مرات بناءً على رقم محدد بميزة رائعة
انسخ وأدخل صفًا محددًا عدة مرات باستخدام رمز VBA
إذا كنت ترغب في تكرار صف واحد محدد فقط x مرات ، فقد يساعدك رمز VBA التالي ، فيرجى القيام بذلك على النحو التالي:
1. حدد الصف الذي تريد نسخه وإدراجه عدة مرات ، ثم اضغط باستمرار على ملف ALT + F11 مفاتيح ، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: تكرار صف واحد محدد عدة مرات:
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. ثم اضغط OK زر ، وتم إدراج ثلاثة صفوف جديدة منسوخة أسفل الصف المحدد ، انظر الصورة:
انسخ وأدخل كل صف عدة مرات بناءً على رقم محدد بسهولة
عادة ، لا توجد طريقة جيدة لنسخ وإدخال الصفوف عدة مرات باستثناء التعامل مع النسخ والإدراج يدويًا. ولكن مع كوتولس ل إكسيل's صفوف / أعمدة مكررة بناءً على قيمة الخلية ميزة يمكنك حل هذه المشكلة بكل سهولة. انقر لتنزيل Kutools for Excel!
كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 60 يومًا. تنزيل وتجربة مجانية الآن!
انسخ وأدخل كل صف عدة مرات باستخدام رمز VBA
لتكرار كل صف عدة مرات في نطاق ما ، يمكنك تطبيق رمز VBA التالي ، يرجى القيام بما يلي:
1. اضغط باستمرار على ALT + F11 مفاتيح ، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: كرر كل صف عدة مرات:
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 Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بإدخال عدد المرات التي تريد تكرارها لكل سجل ، انظر لقطة الشاشة:
4. ثم اضغط OK، وكل صف تم نسخه وإدراجه 3 مرات أسفل الصفوف النشطة ، انظر الصورة:
ملاحظات: في الكود أعلاه ، A يشير إلى بدء نطاق البيانات في العمود A ، إذا كانت بياناتك تبدأ من العمود K، من فضلك غير A إلى K كما حاجتك.
انسخ وأدخل كل صف عدة مرات بناءً على رقم محدد بميزة رائعة
ربما ، لم تكن معتادًا على رمز VBA ، أو تقلق بشأن تعطل الكود لبياناتك. هنا ، سأقدم ميزة مفيدة ، كوتولس ل إكسيل's صفوف / أعمدة مكررة بناءً على قيمة الخلية، باستخدام هذه الأداة ، يمكنك نسخ الصفوف وإدراجها بسرعة بناءً على الرقم الذي حددته.
نصيحة:لتطبيق هذا صفوف / أعمدة مكررة بناءً على قيمة الخلية الميزة ، أولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. أدخل الأرقام المكررة التي تريد تكرار الصفوف في قائمة الخلايا بجانب بياناتك ، انظر الصورة:
2. انقر كوتولس > إدراج > صفوف / أعمدة مكررة بناءً على قيمة الخلية، انظر لقطة الشاشة:
3. في نسخ وإدراج الصفوف والأعمدة مربع الحوار، حدد نسخ وإدراج الصفوف الخيار في النوع ، ثم حدد نطاق البيانات الذي تريد تكراره ، ثم حدد وقت التكرار لتكرار الصفوف ، انظر لقطة الشاشة:
4. ثم اضغط Ok or التقديم سوف تحصل على النتيجة التالية حسب حاجتك:
انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!