尝试写入宏以读取yyyymmdd读取24个月的数据

Sub ReadData()
    Dim startDate As Date
    Dim endDate As Date
    Dim currentDate As Date
    Dim dataRange As Range
    Dim i As Integer
    
    ' 设置起始日期为当前日期
    startDate = Date
    
    ' 计算结束日期为起始日期的前24个月
    endDate = DateAdd("m", -24, startDate)
    
    ' 设置数据范围为A1到A24
    Set dataRange = Range("A1:A24")
    
    ' 循环遍历日期范围
    For i = 1 To dataRange.Rows.Count
        ' 计算当前日期
        currentDate = DateAdd("m", -i, startDate)
        
        ' 将当前日期写入对应的单元格
        dataRange.Cells(i, 1).Value = Format(currentDate, "yyyymmdd")
    Next i
End Sub