在Excel 2010中复制和增加date值的macros

我需要在excel中生成如下所示的数据。

 2013年2月8日
 2013年2月8日
 2013年2月8日
 2013年2月8日
 2013年2月8日
 2013年2月8日
 2013年2月9日
 2013年2月9日
 2013年2月9日
 2013年2月9日
 2013年2月9日
 2013年2月9日
 2013年2月10日
 2013年2月10日
 2013年2月10日
 2013年2月10日
 2013年2月10日

格式为mm/dd/yyyy的date值以及6行上的date值…在第7行中，应该递增并继续，直到第12行为止，就像序列应该重复一样。

任何Excel用户可以帮助我写一个公式/macros等…为此？

在此先感谢Chandu

Answer 1

假设您已经在A1存储了第一个date，那么在A2input以下公式： =IF(MOD(ROW(),6)=1,A1+1,A1)并根据需要自动填充。 格式导致单元格为所需模式的Date 。

Answer 2

1. 在单元格A1中键入您的开始date。
2. 格式化它根据您的需要，即使用格式单元格对话框，并selectdate格式。
3. 在单元格A2中，input下面的公式：

    = IF（MOD（ROW（A2），6）= 1，A1 + 1，A1）
   

4. 复制这个公式到你需要的地方

Answer 3

试试以下代码：

 Sub test() Dim dt As Date dt = Date For i = 1 To 1000 If (i Mod 6 = 0) Then dt = DateAdd("d", 1, dt) End If Range("A" & i).Value = Format(dt, "MM/dd/yyyy") Next End Sub