VBA宏返回连续的月末，最好不要循环

Function GetEndOfMonth(startDate As Date, numMonths As Integer) As Date()
    Dim endOfMonths() As Date
    ReDim endOfMonths(1 To numMonths) As Date
    
    Dim i As Integer
    For i = 1 To numMonths
        endOfMonths(i) = DateSerial(Year(startDate), Month(startDate) + i, 0)
    Next i
    
    GetEndOfMonth = endOfMonths
End Function

Sub TestGetEndOfMonth()
    Dim startDate As Date
    Dim numMonths As Integer
    Dim endOfMonths() As Date
    Dim i As Integer
    
    ' 设置起始日期和要返回的月份数量
    startDate = DateSerial(2022, 1, 1)
    numMonths = 12
    
    ' 调用GetEndOfMonth函数获取连续的月末日期
    endOfMonths = GetEndOfMonth(startDate, numMonths)
    
    ' 输出结果到Excel工作表
    For i = 1 To numMonths
        Cells(i, 1).Value = endOfMonths(i)
    Next i
End Sub