根据 Excel VBA 中的输入月/年创建过去 12 个月的数组，包括月和年

使用日期添加

Sub Demo()

    Dim s As String, ar, n As Integer
    s = Format(Date, "mmm-yy") ' default
    s = InputBox("mmm-yy", "Input mmm-yy", s)
    ar = PriorYear(s)
    For n = 1 To 12: Debug.Print n, ar(n): Next

End Sub

Function PriorYear(s) As Variant

   Dim ar(1 To 12) As String, dt As Date, n As Integer

   dt = DateValue("01-" & s)
   For n = 12 To 1 Step -1
       dt = DateAdd("m", -1, dt)
       ar(n) = Format(dt, "mmm-yy")
   Next
   PriorYear = ar

End Function