Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5350 / 13644 ツリー ←次へ | 前へ→

【51350】空白行へ直前行(1行上)の内容をコピーするには。 kotaro 07/9/12(水) 20:20 質問[未読]
【51363】Re:空白行へ直前行(1行上)の内容をコピ... Jaka 07/9/13(木) 10:57 発言[未読]
【51373】Re:空白行へ直前行(1行上)の内容をコピ... kotaro 07/9/13(木) 17:00 お礼[未読]

【51350】空白行へ直前行(1行上)の内容をコピー...
質問  kotaro  - 07/9/12(水) 20:20 -

引用なし
パスワード
   例えば、1行目が表の見出しでA2:D5にデータが入っている表があるとします。
やりたいことは、
 * D列に入っている数字の行だけ、すぐ下に行挿入する。
   (D2に「3」とあったら、D2のすぐ下に3行空白行を挿入する、ということです)
 * その空白行のA列とB列は、すぐ上の行の値をコピー、C列はすぐ上の値+7のsum関数を入力する。
 * これを表の一番下まで繰り返す。
ということです。

拙い聞き方で恐縮ですが、どなたかお知恵を貸してください。

【51363】Re:空白行へ直前行(1行上)の内容をコ...
発言  Jaka  - 07/9/13(木) 10:57 -

引用なし
パスワード
   For i = Range("D65536").End(xlUp).Row To 2 Step -1
  Rows(i).Copy
  Rows(i).Resize(Cells(i, 4).Value).Offset(1).Insert
  Rows(i).Resize(Cells(i, 4).Value).Offset(1).Columns(3).FormulaR1C1 = "=R[-1]C+7"
Next

【51373】Re:空白行へ直前行(1行上)の内容をコ...
お礼  kotaro  - 07/9/13(木) 17:00 -

引用なし
パスワード
   Jaka様

ご教示ありがとうございます。
最もスッキリした形で解決しました。
助かりました。

5350 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free