创建一个excel vba循环以水平列出每组垂直日期的开始日期和结束日期之间的日期。

Sub ListDates()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim currentColumn As Integer
    
    ' 设置开始日期和结束日期
    startDate = DateSerial(2022, 1, 1)
    endDate = DateSerial(2022, 12, 31)
    
    ' 设置起始列
    currentColumn = 1
    
    ' 循环遍历每组垂直日期
    Do While startDate <= endDate
        ' 水平列出日期
        currentDate = startDate
        Do While currentDate <= endDate
            ' 在当前列输出日期
            Cells(currentColumn, 1).Value = currentDate
            ' 移动到下一列
            currentColumn = currentColumn + 1
            ' 增加一天
            currentDate = currentDate + 1
        Loop
        
        ' 移动到下一组垂直日期的开始列
        currentColumn = currentColumn + 1
        ' 增加一周
        startDate = startDate + 7
    Loop
End Sub