创build从今天开始的历史date列表 – 每月跳转

我期待创build一组date如下。

例如，如果今天的date是12/01/2016。

我需要：

A 

2016年1月1日

2015年12月2日

2015年11月3日

2015年10月4日

2015年9月5日

2015年8月6日

等等。

我将很感激所有的帮助，我可以得到这个问题。 谢谢。

Answer 1

如果您在单元格A1获得12 Jan 2016年12 Jan 2016 ，则可以在单元格A2使用以下公式，并按需要向下拖动公式。

 =EDATE(A1,-1) 

这继续给你以前的date减1个月。

然后，您可以将单元格值格式化为mmmm yyyy ，这将为您提供所需的date格式。

Answer 2

这段代码将遍历从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 

Answer 3

写在2016年1月在A10。 向上拖动单元格A10。 用月份填充系列（自动填充选项）。 复制粘贴这个结果在其他单元格的值。