一个公式阵列月末只有2日期

Question

A1: I have 1/1/13 
A2: I have 7/25/13 

我如何使用一个公式，A3，使得输出看起来是这样的：

1/31/13,2/28/13,3/31/13,4/30/13,5/31/13,6/30/13,7/31,13 

即。在一个单元格中，一个公式给我所有的月份结束日期。

请勿使用代码。

Answer 1

把这个模块中：

Function myFormula(startDate, endDate) 
    On Error GoTo err 
    Dim result As String 
    result = "" 
    noOfMonths = DateDiff("m", startDate, endDate) 
    For i = 1 To noOfMonths + 1 
     Dim myDate As Date 
     myDate = DateAdd("d", Day(startDate) - 1, startDate) 
     myDate = DateAdd("m", i, myDate) 
     myDate = DateAdd("d", -1, myDate) 
     result = result & Format(myDate, "m\/d\/yy") 
     If i <= noOfMonths Then result = result & "," 
    Next i 
    myFormula = result 
ex: 
    Exit Function 
err: 
    MsgBox (err.Number & err.Description) 
    myFormula = "Error" 
    Resume ex 
End Function 

，这在A3：= myFormula（A1，A2）