Excel 创建从今天开始的历史日期列表-每月跳跃

我希望创建一组日期，如下所示

例如，如果今天的日期是2016年1月12日

我需要：

 A

2016年1月1日

2015年12月2日

2015年11月3日

2015年10月4日

2015年9月5日

2015年8月6日

等等

---

在这件事上，我将非常感激能得到的一切帮助。谢谢。

如果您在单元格

A1

中获得了

2016年1月12日的
，那么您可以在单元格
A2
中使用以下公式，并根据需要向下拖动公式

=EDATE(A1,-1)

这将继续为您提供前一个日期减去1个月的时间

然后，您可以将单元格值格式化为
mmmm-yyyy
，这将为您提供所需的日期格式。
如果您在单元格
A1
中获得了
2016年1月12日
，则可以在单元格
A2
中使用以下公式，并根据需要向下拖动公式

=EDATE(A1,-1)

这将继续为您提供前一个日期减去1个月的时间

然后，您可以将单元格值格式化为
mmmm-yyyy
，这将为您提供所需的日期格式。
此代码将迭代A1到A100的单元格，并用当前月份和年份填充它们，对于每个单元格，它将减去一个月：

Sub test()


MyMonth = Date


For i = 1 To 100

    Range("A" & i).Value = MyMonth
    Range("A" & i).NumberFormat = "[$-406]mmmm yyyy;@"
    MyMonth = DateAdd("m", -1, MyMonth)

Next i


End Sub

此代码将在A1到A100之间的单元格上进行迭代，并用当前月份和年份填充，对于每个单元格，它将减去一个月：

Sub test()


MyMonth = Date


For i = 1 To 100

    Range("A" & i).Value = MyMonth
    Range("A" & i).NumberFormat = "[$-406]mmmm yyyy;@"
    MyMonth = DateAdd("m", -1, MyMonth)

Next i


End Sub

将2016年1月写在A10中。向上拖动单元格A10。使用月份填充系列（自动填充选项）。将此结果复制粘贴到具有值的其他单元格中
 将2016年1月写入A10。向上拖动单元格A10。使用月份填充系列（自动填充选项）。将此结果复制粘贴到具有值的其他单元格中
 根据您的日期（2016年1月12日），您希望检索某个月的第1天，然后减去一个月，再加上一天，此循环6次？！？！？！根据您的日期（2016年1月12日），您希望检索某个月的第1天，然后减去一个月，再加上一天，此循环6次？！？！？！抱歉，我的意思是我需要2016年1月1日在A1单元，而不是2016年1月1日在A1Hi单元。我已设法用您的解决方案解决了我的问题，谢谢您的帮助！祝你有美好的一天！抱歉，我的意思是我需要2016年1月1日在A1单元，而不是2016年1月1日在A1Hi单元。我已设法用您的解决方案解决了我的问题，谢谢您的帮助！祝你有美好的一天！