Excel - نسخ الصفوف من الورقة 1 إلى الورقة 2

القضية

أحتاج إلى ماكرو يقوم بنسخ الصفوف من الورقة 1 إلى الورقة 2. المصيد من الورقة 1 col A على سبيل المثال A3 قد يكون الرقم 10 فيه. أحتاج إلى نسخ هذا الصف ولصقه 10 مرات على الورقة 2 ثم نسخ الصف التالي من الورقة 1 A4 وإذا كان يحتوي على 2 في هذا العمود ، فقم بلصقه مرتين في الورقة 2 وما إلى ذلك.

حل

أفترض أن لديك بيانات (أرقام) فقط من A3 إلى الأسفل

انظر نموذج البيانات أدناه (هذا في sheet1)

A3 هي 10

A4 هو 2

جرب الآن هذا الماكرو وانظر الورقة 2

 الاختبار الفرعي () Dim r As Range ، c As Range ، dest as Range Dim j As Long ، r1 As Range أوراق العمل ("sheet1"). تنشيط Set r = Range (Range ("A3") ، Range ("A3") .End (xlDown)) لكل c في rj = c.Value c.EntireRow.Copy مع أوراق العمل ("sheet2") تعيين dest = .Cells (Rows.Count ، "A"). End (xlUp) .Offset (1 ، 0) Set r1 = Range (dest، dest.Offset (j - 1، 0)) r1.PasteSpecial End With Next c application.cutcopymode = false End Sub