Note: The other languages of the website are Google-translated. Back to English

كيفية نسخ وإدراج الصف عدة مرات أو تكرار الصف × مرات في إكسيل؟

في عملك اليومي ، هل سبق لك أن حاولت نسخ صف أو كل صف ثم إدراجه عدة مرات أسفل صف البيانات الحالي في ورقة العمل؟ على سبيل المثال ، لدي مجموعة من الخلايا ، الآن ، أريد نسخ كل صف ولصقه 3 مرات في الصف التالي كما هو موضح في لقطة الشاشة التالية. كيف يمكنك التعامل مع هذه الوظيفة في Excel؟


انسخ وأدخل صفًا محددًا عدة مرات باستخدام رمز 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 والتجربة المجانية الآن!


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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (32)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماكرو رائع - وفر لي الكثير من الوقت!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماكرو لطيف حقيقي ماتي!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد إنشاء صفوف مكررة بشكل عشوائي ،

على سبيل المثال. إنشاء صفوف مكررة عشوائية بين 20 إلى 80.


ماذا سيتم تحديث الكود لما يلي


إدراجات فرعية ()
'تحديث بواسطة Extendoffice 2016616
أنا خافت وطويلة
خافت xCount كعدد صحيح
رقم:
xCount = Application.InputBox ("عدد الصفوف" ، "Kutools for Excel" ، ، ، ، ، ، 1)
إذا كان xCount <1 ثم
MsgBox "عدد الصفوف التي تم إدخالها خطأ ، يرجى إدخال مرة أخرى" ، vbInformation ، "Kutools for Excel"
انتقل إلى LableNumber
إنهاء حالة
بالنسبة إلى I = Range ("A" & Rows.CountLarge). النهاية (xlUp). الصف إلى 1 الخطوة -1
الصفوف (أنا). نسخ
الصفوف (I). الحجم (xCount)
التالى
Application.CutCopyMode = خطأ
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد تكرار الصفوف بناءً على معلمة. على سبيل المثال ، لدي عمود يسمى وقت مدة الاجتماع. إذا كان هذا العمود أكثر من 1 ، فأنا أرغب في تكرار صفوف معرف الاجتماع بناءً على هذا الرقم. إذا كانت مدة الاجتماع ساعتين ، فقم بتكرار معرف الاجتماع مرتين. إذا كان الاجتماع 2 ساعات ثم كرر ثلاث مرات.
يمكن تقريب الزيادات نصف ساعة إلى الساعة.

معرف الاجتماع وقت بدء وقت انتهاء مدة الاجتماع
43117 9:00 صباحًا 11:00 صباحًا 02:00
43580 9:30 صباحًا 11:00 صباحًا 01:30
42699 10:00 صباحًا 11:30 صباحًا 01:30
12345 01:00 مساءً 2:00 مساءً 01:00
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي نفس المشكلة. هل وجدت حل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا الرجال،
قد يكون رمز VBA التالي يمكن أن يقدم لك خدمة ، يرجى تطبيقه:
إدراجات فرعية ()
أنا خافت وطويلة
خافت xRg كمدى
Dim xHour، xMin As Long
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
بالنسبة إلى I = Range ("D" & Rows.CountLarge). النهاية (xlUp). الصف إلى 1 الخطوة -1
xHour = 0
تعيين xRg = النطاق ("D" & I)
xHour = ساعة (xRg.Value) + 1
xMin = دقيقة (xRg.Value)
إذا كان xMin <30 ثم xHour = xHour - 1
الصفوف (أنا). نسخ
الصفوف (I). الحجم (xHour)
التالى
Application.ScreenUpdating = ترو
Application.CutCopyMode = خطأ
نهاية الفرعية

رجاء محاولة ذلك. أتمنى أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت وحدات الماكرو هذه في الماضي وعملت دائمًا حتى وقت قريب. أي فكرة عن سبب تكرار الصف العلوي فقط حتى عند استخدام وحدات ماكرو للصفوف المتعددة؟ لقد قمت بإزالة جميع المرشحات / الأجزاء المجمدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيف يمكنني تغيير الرمز ليشمل ما يلي

1. مكررة على أساس عدد الأيام
2. قم بتغيير عمود EOM من نهاية الشهر إلى التاريخ اليومي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حقا شكرا لدعمكم !!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحب الرمز! كيف يمكنني ضبط نطاق البداية لتخطي الصف الأول (رؤوس الأعمدة) والبدء في الصف 2؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديفين ،
لتخطي صف الرأس الأول ، يرجى تطبيق كود فبا التالي:

إدراجات فرعية ()
أنا خافت وطويلة
خافت xCount كعدد صحيح
رقم:
xCount = Application.InputBox ("عدد الصفوف" ، "Kutools for Excel" ، ، ، ، ، ، 1)
إذا كان xCount <1 ثم
MsgBox "عدد الصفوف التي تم إدخالها خطأ ، يرجى إدخال مرة أخرى" ، vbInformation ، "Kutools for Excel"
انتقل إلى LableNumber
إنهاء حالة
بالنسبة إلى I = Range ("A" & Rows.CountLarge). النهاية (xlUp). الصف إلى 2 الخطوة -1
الصفوف (أنا). نسخ
الصفوف (I). الحجم (xCount)
التالى
Application.CutCopyMode = خطأ
نهاية الفرعية

من فضلك جربها ، آمل أن تساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحتاج إلى مساعدة ، هكذا تبدو طاولتي ، على سبيل المثال ، عندما أقوم بإضافة صفين في نهاية الجدول الأول ، أريد أن تساعدني vba على فعل الشيء نفسه للجدول أدناه (أضف صفين في نهاية الجدول). لذا ، ستكون وظيفتي ، تحتاج فقط إلى إضافة صفوف في الجدول الأول ، وستقوم جميع منفاخ الجدول بإنشاء صفوف تلقائيًا بناءً على عدد الصفوف في الجدول الأول. هي الترميز الذي استخدمته الآن لإضافة صف للجدول الأول. آمل أن يتمكن شخص ما من حل هذه المشكلة بالنسبة لي ، thx.

ActiveCell.EntireRow.Copy

خافت Rng طالما

Application.DisplayAlerts = خطأ
على خطأ استئناف التالي
Rng = InputBox ("أدخل عدد الصفوف المطلوبة.")
على خطأ GoTo 0
Application.DisplayAlerts = صحيح

إذا كان Rng = 0 ثم
MsgBox "لم تحدد نطاقا!"
خروج الفرعية

آخر
النطاق (ActiveCell.Offset (1 ، 0) ، ActiveCell.Offset (Rng ، 0)). حدد
Selection.EntireRow.Insert Shift: = xlDown
إنهاء حالة

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحبها! إنه يعمل في كل مرة! شكرا جزيلا لهذا :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أفعل هذا للأعمدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني القيام بذلك للأعمدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية تنفيذ نفس الإجراء مع الخلايا المحددة باستخدام VB ،


أحتاج إلى تكرار بعض الخلايا المحددة (الصفوف والأعمدة) × عدد المرات في نفس الورقة وبنفس ترتيب:

line1
line2
line3

line1
line2
line3
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد نجح هذا بشكل رائع ، فأنا بحاجة فقط إلى صفين منسوخًا لعدد N من المرات. هل يمكنك من فضلك تعديل الكود ، فعندما أحدد صفين ، سيتم نسخ هذين الصفين لأسفل N مرات؟ شكرا لمساعدتك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا سال ،
إذا كنت بحاجة إلى نسخ صفين فقط لأسفل عدة مرات ، فأنت تحتاج فقط إلى استخدام رمز VBA 1 في هذه المقالة ، وتطبيق الكود مرتين سيحل مشكلتك. من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انسخ وأدخل كل صف عدة مرات باستخدام كود فبا

في كود فبا ، كيف يمكنني تحديد صف البداية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
No funciona con Windows 2019، deseo usar la función en mención pero simplemente no hace absolutamente nada
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا بالجميع .. شكرا لكم مقدما على مساعدتكم !!

يعمل رمز VBA لتكرار صف معين عدة مرات بشكل مثالي حتى تستخدم عامل تصفية. أتساءل عما إذا كان بإمكان أي شخص مساعدتي في حل هذه المشكلة. أحتاج إلى رمز يعمل حتى إذا كان لديك بعض القيم التي تمت تصفيتها. أنا أستخدم كمية كبيرة من البيانات المصنفة حسب المواقع. يعمل الكود جزئيًا ، فهو يلصق عدد رغبة الصف ولكن لا توجد بيانات أو تنسيق عندما قمت بتطبيق مرشح.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل من الممكن استخدام أحجام (قيم) مختلفة لكل صف؟ أحاول استخدام المتجه ، لكنه لا يعمل.
على سبيل المثال :
الصفوف (I). الحجم (xCount (y))

حيث تتم قراءة القيم المحفوظة في xCount (y) من جدول.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا جوس
قد يكون المقال أدناه يمكن أن يساعدك ، يرجى التحقق منه:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بالنسبة إلى رمز VBA الثاني (رمز VBA: تكرار كل صف عدة مرات) أستمر في الحصول على خطأ وقت التشغيل: 1004
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL