質問: DateAdd("d", 1, Dayone) '1~開始日-終了日の日数 Debug.Print DateAdd("d", Dayone, dateStartDate) Debug.Print "2, "; cntColl Next cntColl Next Dayone End Sub ```
回答: ``` ' dateStartDate = wsDateList.Range("D2") '「開始日」 ' dateEndDate = wsDateList.Range("E2") '「終了日」 dateStartDate = wsDateList.Range("D2").value '「開始日」 dateEndDate = wsDateList.Range("E2").value '「終了日」 コード ``` Loopはどちらかにしましょう ``` cntColl = 5 For Dayone = 0 To loncntDay '開始日から1日単位で増えていく(※開始日も表示したいので0からスタート) wsTemplate2.Cells(2, cntColl + Dayone).Value = DateAdd("d", 1, Dayone) '1~開始日-終了日の日数 Debug.Print DateAdd("d", Dayone, dateStartDate) Debug.Print "2, "; cntColl Next Dayone ```