Excel vba循环遍历数月和数年

Sub LoopMonthsAndYears()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    
    startDate = DateSerial(2022, 1, 1) ' 设置开始日期
    endDate = DateSerial(2023, 12, 31) ' 设置结束日期
    
    currentDate = startDate
    
    Do While currentDate <= endDate
        ' 在这里执行你的操作，例如输出当前日期
        Debug.Print currentDate
        
        ' 增加一个月
        currentDate = DateAdd("m", 1, currentDate)
    Loop
End Sub