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 r4 2009096 1001 19 r5 2009096 1001 19 r6 2009097 1002 12 r7 2009097 1002 12 r8 2009097 1003 36 r9 2009097 1003 36 r11 2009097 1003 36 r12 2009097 r13 2009097 1003 36 

溶液

データがsheet1にあり、1行目（ヘッダーなし）から始まるとします。

結果はsheet2に表示されます。

シート名を修正し、最初にファイルのバックアップを作成してから、このマクロが望ましい結果をもたらすかどうかを確認してください。

 Sub Test（）Dim lRow、lRow2、x、y整数としてlRow = Sheets（ "sheet1"）。Range（ "E"＆Rows.Count）.End（xlUp）。各セルのRow for Sheets（ "Sheet1"） .Range（ "E1：E"＆lRow）x = cell.Value y = 0 Do Sheets（ "Sheet1"）。範囲を選択（セル（cell.Row、 "A"）、セル（cell.Row、 "D"） lRow2 = Sheets（ "Sheet2"）をコピーします。Range（ "A"＆Rows.Count）.End（xlUp）.Offset（1、0）.Row Sheets（ "Sheet2"）。Range（ "A"＆ lRow2）.PasteSpecial y = y + 1 x = yまでループする次のセルEnd Sub 

この助言をくれたTrowaDに感謝します。