VBAの日付処理について

Question

ExcelVBAの処理についてお教えいただけないでしょうか

A列（開始日）　B列（終了日）
2020/01/01 2021/01/01

というデータがあり、出力結果を
2020/01
2020/02
2020/03
2020/04
2020/05
2020/06
2020/07
2020/08
2020/09
2020/10
2020/11
2020/12
2021/01
というように縦列に出力したいと思っております。
その場合、VBAで記述するとどの様になるでしょうか...
よろしくお願いいたします。

Answer 1

A2セルに開始日、B2セルに終了日が入力されていて、
C列に出力するとして、

    Dim i As Long
    
    For i = 0 To DateDiff("m", Range("A2"), Range("B2")) - 1
       Cells(i + 1, 3).Value = Format(DateAdd("m", i, Range("A2")), "yyyy/mm")
    Next

Comments

[Pun_hiro]

！！
ありがとうございます！

Answer 2

こんな感じでいかがでしょうか。

Sub sample()
    Dim startDate, endDate, c As Range, i

    startDate = Range("A1").Value
    endDate = Range("B1").Value
    Set c = Range("A3")
    For i = 0 To DateDiff("m", startDate, endDate)
        c.Offset(i).Value = DateAdd("m", i, startDate)
    Next
    c.CurrentRegion.NumberFormatLocal = "yyyy/mm"
End Sub

Comments

[Pun_hiro]

まさにそのとおりです。
分かりづらい説明で申し訳ありません。
ありがとうございます。

Answer 3

データを一行にそろえた後にソート機能を使えばいいのではないでしょうか。
並べ替え
自力でソートプログラムを組むならアルゴリズムの話になりますが。

Comments

[Pun_hiro]

ご回答ありがとうございます。
行ごとに
A列（開始日）　B列（終了日）
2020/01/01 2021/01/01
と保持しているデータを
開始日と終了日の期間の年月のみを
１列で表示したいのですが....

[退会済みユーザー]

てっきり元データは数行あって記載されていないと思いましたが、問題を切り分けると

開始日と終了日を１件ずつ取得する
開始日と終了日の日付を削除する
開始日と終了日を比較して何か月分の開きがあるか確認する
開きのある分の月を生成する。
全てをソートして１列にする
作成完了

想定する手順はこういう形でいいんですかね？

[Pun_hiro]

はい！そのとおりです。