Excel VBA質問箱 IV

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

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


10755 / 13646 ツリー ←次へ | 前へ→

【20056】For〜Nextステートメントについて コミュ 04/11/26(金) 14:31 質問[未読]
【20059】Re:For〜Nextステートメントについて IROC 04/11/26(金) 15:23 回答[未読]

【20056】For〜Nextステートメントについて
質問  コミュ  - 04/11/26(金) 14:31 -

引用なし
パスワード
   C1からC2の差分回数だけ行のコピーを行いたいです。
例えば、C1が「2」 C2が「5」の場合、
現在ある行の下に、2行コピーを挿入する。

For〜Nextを使うのだと思うのですが、
使い方がわかりません。。

教えて下さい。

【20059】Re:For〜Nextステートメントについて
回答  IROC  - 04/11/26(金) 15:23 -

引用なし
パスワード
   このようなことでしょうか?

Dim i As Long

For i = 1 To Range("C2").Value - Range("C1").Value
  ActiveCell.EntireRow.Copy
  ActiveCell.Offset(1).EntireRow.Insert
Next i

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