excel - 获取日期范围 VBA 之间的所有月份和年份

Question

>startdate示例用户输入 'startdate' = 2017 年 7 月，'enddate' = 2019 年 3 月。我已经能够使用&将其输入过滤器，<enddate但需要以这种方式填充数字。

如何在工作表上列出 2 之间的所有月份和年份？

July 2017
August 2017
September 2017
...
March 2019

Answer 1

一种简单的方法是在两个日期之间循环遍历每个月：

Dim tempDate As Date: tempDate = Sheet1.Cells(1, 1).Value
Dim endDate As Date: endDate = Sheet1.Cells(1, 2).Value

Dim i As Integer: i = 3

Do While tempDate < endDate
    Sheet1.Cells(i, 1).Value = MonthName(DatePart("m", tempDate)) & " " & DatePart("yyyy", tempDate)
    tempDate = DateAdd("m", 1, tempDate)    
    i = i + 1
Loop