使用VBA创建具有给定开始日期和周数的日期值的动态表

Sub CreateDynamicTable()
    Dim startDate As Date
    Dim numWeeks As Integer
    Dim tableRange As Range
    Dim currentDate As Date
    Dim i As Integer
    
    ' 设置开始日期和周数
    startDate = DateSerial(2022, 1, 1) ' 设置开始日期为2022年1月1日
    numWeeks = 10 ' 设置周数为10周
    
    ' 设置表格的起始单元格
    Set tableRange = Range("A1")
    
    ' 清空表格内容
    tableRange.CurrentRegion.ClearContents
    
    ' 填充表头
    tableRange.Value = "日期"
    
    ' 填充日期值
    currentDate = startDate
    For i = 1 To numWeeks * 7 ' 每周7天
        tableRange.Offset(i, 0).Value = currentDate
        currentDate = currentDate + 1 ' 递增日期
    Next i
    
    ' 设置表格格式
    tableRange.CurrentRegion.NumberFormat = "yyyy-mm-dd"
    
    ' 自动调整列宽
    tableRange.CurrentRegion.Columns.AutoFit
End Sub