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