如何使用VBA在excel中编辑两个日期之间的每周或每月的日期列表？

Sub GenerateDateList()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    
    startDate = DateValue("2022-01-01") ' 设置起始日期
    endDate = DateValue("2022-12-31") ' 设置结束日期
    
    currentDate = startDate
    
    ' 清空当前工作表的内容
    Sheets("Sheet1").UsedRange.ClearContents
    
    ' 设置日期列表的起始行数
    Dim rowNum As Integer
    rowNum = 1
    
    ' 生成每周的日期列表
    Do While currentDate <= endDate
        Sheets("Sheet1").Cells(rowNum, 1).Value = currentDate
        currentDate = currentDate + 7 ' 每次增加7天，即一周
        rowNum = rowNum + 1
    Loop
    
    ' 生成每月的日期列表
    currentDate = startDate
    rowNum = 1
    
    Do While currentDate <= endDate
        Sheets("Sheet1").Cells(rowNum, 2).Value = currentDate
        currentDate = DateAdd("m", 1, currentDate) ' 每次增加1个月
        rowNum = rowNum + 1
    Loop
End Sub