Excel - Adatok feltöltése változó szerint

Probléma

Egy rögzített oszlopba beillesztett szám szerint egy változó sorszámú Excel lapot szeretnék feltölteni.

 oszlop 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 

A D oszlopban feltüntetett számok szerint a következő eredményt kívánom elérni:

 oszlop 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 r12 2009097 1003 36 r12 2009097 1003 36 r12 2009097 1003 36 r13 2009097 1003 36 

Megoldás

Feltételezve, hogy az adatok az 1. lapban vannak, az 1. sortól kezdve (nem fejléc).

Az eredmény a 2. lapon jelenik meg.

Helyezze el a lapneveket, és először készítsen biztonsági másolatot a fájlról, majd nézze meg, hogy ez a makró adja-e a kívánt eredményt:

 Sub Teszt () Dim lRow, lRow2, x, y As Integer lRow = Lapok ("sheet1") .tartomány ("E" és sorok.Count) .End (xlUp). .Range ("E1: E" & lRow) x = cell.Value y = 0 lapok ("Sheet1"). Válasszon tartományt (Cells (cell.Row, "A"), cellák (cell.Row, "D") .) Másolás lRow2 = lapok ("Sheet2") .tartomány ("A" és "sorok" szám) .End (xlUp) .Offset (1, 0) .Réteglapok ("Sheet2"). lRow2) .PasteSpecial y = y + 1 hurok x x = y következő cellához End Sub 

Köszönjük TrowaD-nak ezt a tippet.