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

我期待创建一组日期，如下所示。创建从今天开始的历史日期列表 - 每月跳转

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

我需要：

2016年1月1日

2015年12月2日

2015年11月3日

2015年10月4日

2015年9月5日

2015年8月6日

等。

我将不胜感激我对这件事的所有帮助。谢谢。

来源

2016-01-13 Lucas Wong

随着你的日期（12/01/2016）你想在一个月内检索第1天，然后减去一个月并添加一天，这个循环为6次？！？！？！ – Fabrizio

如果您在单元格A1中获得12 Jan 2016，则可以在单元格A2中使用以下公式，然后将公式向下拖动以满足需要。

=EDATE(A1,-1)

继续给你上一个日期减1个月。

然后，您可以将单元格值格式化为mmmm yyyy，它将为您提供您正在查找的日期格式。

来源

2016-01-13 09:13:44

道歉的困惑，我的意思是说，我需要2016年1月在单元格A1，而不是2016年1月1日在单元格A1 –

我明白了。我已经更新了我的答案。 –

嗨，我已经设法解决我的问题与您的解决方案，谢谢你的帮助！祝你有美好的一天！ –

此代码将遍历细胞从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-01-13 09:20:30 Alex4336

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

来源

2016-01-13 09:22:49 pranav012

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

回答

相关问题