下面的代码从输入框中获取年份，并用月份填充您指定的单元格。

Sub Fill_Months()
Dim strYear As String, a As Long
strYear = InputBox("Enter the year", , Year(Date))

ActiveCell.FormulaR1C1 = strYear
For a = 1 To 12
    Range("F" & a + 2).FormulaR1C1 = Format(DateAdd("m", 3, DateSerial(CLng(strYear), a, 1)), "m/d/yyyy")
Next
End Sub

您可以使用VBA：

Sub createMonthsForYear(lngYear As Long, rgTarget as Range)

Dim i As Long, arrDates(1 To 12, 1 To 1) As Variant

For i = 1 To 12
    arrDates(i, 1) = DateSerial(lngYear, 3 + i, 1)
Next

rgTarget.Resize(12).Value = arrDates

End Sub

你可以这样称呼这个潜艇：

createMonthsForYear 2024, ActiveSheet.Range("F4")

或者您可以使用公式-如果您使用Excel 365

= DATE(B1,SEQUENCE(12,1,4,1),1)

每月生成

Sub GenerateMonthlyFill()
    
    If ActiveSheet Is Nothing Then Exit Sub ' no visible workbooks open
    If Not TypeOf ActiveSheet Is Worksheet Then Exit Sub ' not a worksheet
    
    With ActiveSheet
        FillMonthly .Range("A3"), .Range("B1"), 4, , , "MMMM-YY"
    End With
    
End Sub

Sub FillMonthly( _
        ByVal FirstCell As Range, _
        ByVal FirstYear As Long, _
        Optional ByVal FirstMonth As Long = 1, _
        Optional ByVal FirstDay As Long = 1, _
        Optional ByVal MonthsCount As Long = 12, _
        Optional ByVal DateFormat As String = "YYYY-MM-DD")
    
    Dim Data(): ReDim Data(1 To MonthsCount, 1 To 1)
    Dim CurrDate As Date: CurrDate = DateSerial(FirstYear, FirstMonth, FirstDay)
    
    Dim r As Long
    
    For r = 1 To MonthsCount
        Data(r, 1) = "'" & Application.Text(CurrDate, DateFormat)
        CurrDate = DateAdd("m", 1, CurrDate)
    Next r

    Dim drg As Range: Set drg = FirstCell.Resize(MonthsCount)
    drg.Value = Data

End Sub