Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
83 / 13620 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81958】指定範囲の繰り返しコピーについて daikonsan 22/2/12(土) 17:28 質問[未読]
【81959】Re:指定範囲の繰り返しコピーについて マナ 22/2/12(土) 20:24 発言[未読]
【81960】Re:指定範囲の繰り返しコピーについて daikonsan 22/2/14(月) 9:09 お礼[未読]
【81958】指定範囲の繰り返しコピーについて
質問  daikonsan  - 22/2/12(土) 17:28 -
引用なし
パスワード
   　　F（F列）
　　項目名
2　 2022/02/01
3　 2022/02/02
4　 2022/02/03
5　 |
29　2022/02/28

上記のように値が設定されており、月の日付を任意の回数分下のセル（30行以降）に繰り返しコピーしていくにはどのように記述すればよろしいでしょうか。
結果的に以下のように任意の回数コピペが出来ればベストです。
offsetを使う必要があるのは分かっているのですが、具体的にどのように記述をすれば良いかがうまく掴めません。
ご教授いただけると幸いです。

　　F（F列）
　　項目名
2　 2022/02/01
3　 2022/02/02
4　 2022/02/03
　　|（省略）
29　2022/02/28
30　2022/02/01
31　2022/02/02
32　2022/02/03
　　|（省略）
58　2022/02/28
59　2022/02/01
60　2022/02/02
61　2022/02/03
　　|（省略）
87　2022/02/28
【81959】Re:指定範囲の繰り返しコピーについて
発言  マナ  - 22/2/12(土) 20:24 -
引用なし
パスワード
   ▼daikonsan さん：

Sub rest()
　　Dim r As Range
　　Dim n As Long
　　
　　n = 2
　　
　　Set r = Range("F2", Cells(Rows.Count, 6).End(xlUp))
　　r.Copy r.Resize(r.Count * (n + 1))
　　
End Sub
【81960】Re:指定範囲の繰り返しコピーについて
お礼  daikonsan  - 22/2/14(月) 9:09 -
引用なし
パスワード
   ▼マナ さん：
ありがとうございます。
想定した動きになりました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
83 / 13620 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free