12か月分の日付データを繰返し記入したい

質問

下記動作を実現したくマクロを書いてみましたが、正常に処理できません。
修正が必要な箇所&修正方針について、知識のある方からご助言いただけますと幸いです。。

＜実現したいこと＞
・sh2のV列（2行目～）に対し、
2019/4/1
2019/5/1
…
2020/3/1
と12行書き込む処理を、（sh1の２～最終行）回行う
※最終的に、sh2のV列は、先頭行の下に、（sh1の２～最終行）×12行できる想定

＜正常に動かなかった記述＞
Sub V列の処理()

Dim sh1 As Worksheet, sh2 As Worksheet
Dim r As Long, i As Long
Application.ScreenUpdating = False

Set sh1 = Worksheets("元シート")
Set sh2 = Worksheets("集計用シート")

'２から最終行まで12行おきの繰り返しです
For r = 2 To sh1.Cells(Rows.Count, 1).End(xlDown).Row Step 12

'まず、V列の各1行目に4月の値を入れます
sh2.Cells(r, 22) = "2019/4/1"

'したら、12か月分入れていきます
For i = 1 To 11
sh2.Cells(r + i, 22) = DateAdd("m", i, Cells(r, 22))
Next i

Next r

Application.ScreenUpdating = True
End Sub

回答No.1

f272 · ベストアンサー

For r = 2 To sh1.Cells(Rows.Count, 1).End(xlDown).Row Step 12
を
For r = 2 To sh1.Cells(Rows.Count, 1).End(xlUp).Row *12 Step 12
としてみたらどうでしょう。

お礼

ありがとうございます！こちらの方法でを参考にさせていただき、無事期待していた動作を実現できました。。

回答No.2

imogasi

質問の意味と実現してほしい結果が、質問からでは伝わらない。
＞、知識のある方からご助言い・・
というより、質問者は、コンピュター的に処理内容を文章で正確に書く訓練の方がずっと大切だと思う。問題そのものは多分VBAベテランでないと答えられないものではないと想像するから。
それと、結果例（値）とそれを出すセル（列、行）を例示・明示して質問すべきだ。
ーー
月初日だけ１年分（１２日分、１２行）シートに書くのは簡単。
R列R1からとして
Sub test01()
For i = 1 To 12
Cells(i, "R") = DateSerial(2020, i + 2, 1)
Next i
End Sub
でできる。
＞12か月分の日付
という意味があいまい。普通は３５６日分（３６５行）を想像するが。
ーー
これを５年先までの分をセルに作りたいというのか？
ーー
それ以上の繰り返しの結果はあるのか。
それをどの列に出すのか。
ーー
手操作でもできる。VBAはマクロの記録をとればよい。
ーー
日付については、エクセルの考えは、特別（初心者には想像できない）な方法で扱っている。
その日付シリアル値のことをご存じ（勉強した）か。
上記の私のプログラムで、１３月になる場面があるが、エクセルは、その１３月を、１２を引いて１月とし、年を１足してくれる（繰り上げ）など、VBAを経験しないとわからないと思う。