excel - For-Next 循环使用月末日期作为迭代

Question

我目前有一个“For Next”循环，可以迭代各个年份，我想修改它以循环日期，特别是每个月的月底。我的年循环通用代码如下。显然，循环年份相对容易，因为您有一个起始年份，它是一个整数，并且迭代次数为 1。现在我想修改循环以迭代各个月末日期。例如，2003年1月31日、2003年2月28日、......、2007年12月31日。另请注意，对于每次迭代，我都会创建一个新工作表，并将当前迭代的名称作为工作表的名称。同样，这对于一年来说相对容易，但使用带有“/”的日期会使事情变得复杂。有人对使用月末日期创建循环以及使用日期创建工作表有任何想法吗？我确实有一个日期数组，因此代码可以引用工作表中的数组。并且工作表的名称可以是任何格式。例如，“月-日-年”。

Sub YearLoop()

    Dim FirstYr As Integer
    Dim LastYr As Integer
    Dim Sheetname As String
    Dim Counter1 As Single

    FirstYr = Sheets("Model").Range("ax15").Value
    LastYr = Sheets("Model").Range("ax16").Value

    Counter1 = 0

    For J = FirstYr To LastYr

        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = J
        Sheetname = J

      'do stuff
      Counter1 = Counter1+1

    Next
End Sub

Answer 1

DateSerial function当您将任意月份的某一天指定为零时，会生成上个月的月末日期。

dim m as integer
for m = 2 to 13
    debug.print dateserial(2016, m, 0)
next m