創建從今天開始的歷史日期列表 - 每月跳轉

Question

我期待創建一組日期，如下所示。

例如，如果今天的日期是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，則可以在單元格A2中使用以下公式，然後將公式向下拖動以滿足需要。

=EDATE(A1,-1) 

繼續給你上一個日期減1個月。

然後，您可以將單元格值格式化爲mmmm yyyy，它將爲您提供您正在查找的日期格式。

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。用月份填充系列（自動填充選項）。將此結果複製粘貼到其他具有值的單元格中。