Excel - نشر البيانات وفقًا للمتغير

القضية

أريد تعبئة ورقة Excel مع عدد متغير من الصفوف وفقًا لرقم مدرج في عمود ثابت.

 عمود ABCD r1 2009096 1001 19 5 r2 2009097 1002 12 2 r3 2009097 1003 36 6 r4 2009099 1004 10 3 r5 2009099 1005 11 3 r6 2009099 1006 12 2 r7 2009099 1007 13 4 r8 2009101 1008 25 5 r9 2009102 1009 19 5 

وفقًا للأرقام المدرجة في العمود D ، أعتزم الحصول على النتيجة التالية:

 عمود ABC r1 2009096 1001 19 r2 2009096 1001 19 r3 2009096 1001 19 r4 2009096 1001 19 r5 2009096 1001 19 r6 2009097 1002 12 r7 2009097 1002 12 r8 2009097 1003 36 r9 2009097 1003 36 r10 2009097 1003 36 r11 2009097 1003 36 r10 r13 2009097 1003 36 

حل

بافتراض أن البيانات موجودة في الورقة 1 ، تبدأ من الصف 1 (بدون رأس).

سيتم عرض النتيجة في الورقة 2.

قم بتصحيح أسماء الأوراق وعمل نسخة احتياطية من الملف أولاً ، ثم تحقق مما إذا كان هذا الماكرو يحقق النتيجة المرجوة:

 اختبار فرعي () خافت lRow ، lRow2 ، x ، y كـ عدد صحيح lRow = صفائح ("sheet1"). النطاق ("E" & Rows.Count). End (xlUp) .Row For cell cell in Sheets ("Sheet1") .Range ("E1: E" & lRow) x = cell.Value y = 0 Do Sheets ("Sheet1"). حدد النطاق (الخلايا (cell.Row ، "A") ، الخلايا (cell.Row ، "D" )). Copy lRow2 = Sheets ("Sheet2"). Range ("A" & Rows.Count). End (xlUp) .Offset (1، 0) .Row Sheets ("Sheet2"). Range ("A" & lRow2) .PasteSpecial y = y + 1 Loop حتى x = y الخلية التالية End Sub 

بفضل TrowaD لهذه النصيحة.