Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5350 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【51350】空白行へ直前行（１行上）の内容をコピーするには。 kotaro 07/9/12(水) 20:20 質問[未読]
【51363】Re:空白行へ直前行（１行上）の内容をコピ... Jaka 07/9/13(木) 10:57 発言[未読]
【51373】Re:空白行へ直前行（１行上）の内容をコピ... kotaro 07/9/13(木) 17:00 お礼[未読]
【51350】空白行へ直前行（１行上）の内容をコピー...
質問  kotaro  - 07/9/12(水) 20:20 -
引用なし
パスワード
   例えば、１行目が表の見出しでA2：D5にデータが入っている表があるとします。
やりたいことは、
　*　D列に入っている数字の行だけ、すぐ下に行挿入する。
　　　（D2に「3」とあったら、D2のすぐ下に3行空白行を挿入する、ということです）
　*　その空白行のA列とB列は、すぐ上の行の値をコピー、C列はすぐ上の値+7のsum関数を入力する。
　*　これを表の一番下まで繰り返す。
ということです。

拙い聞き方で恐縮ですが、どなたかお知恵を貸してください。
【51363】Re:空白行へ直前行（１行上）の内容をコ...
発言  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:空白行へ直前行（１行上）の内容をコ...
お礼  kotaro  - 07/9/13(木) 17:00 -
引用なし
パスワード
   Jaka様

ご教示ありがとうございます。
最もスッキリした形で解決しました。
助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5350 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free