用于在Excel 2010中复制和增加日期值的宏

我需要在excel中生成如下所示的数据。用于在Excel 2010中复制和增加日期值的宏

格式mm/dd/yyyy日期值和6行......在第七届应该递增，一直持续到第12行这样的顺序应重复相同。

是否有任何Excel用户可以帮助我编写一个公式/宏等...为此？

由于提前， Chandu

来源

2013-02-19 Chandu Maddila

假设你已经储存了第一日期在A1，键入A2以下公式：=IF(MOD(ROW(),6)=1,A1+1,A1)，并根据需要自动填充了下来。格式导致的单元格为Date具有所需的模式。

来源

2013-02-19 12:14:19 Ksenia

+1同样的解决方案，但你49 “早些时候!-) – 2013-02-19 12:15:48

@PeterAlbert无非就是一个运气，彼得！） – Ksenia 2013-02-19 12:17:29

该死的伙计，你太快了）晚餐茶花费我一个答案））））我的+1为你们两个） – 2013-02-19 12:20:37

在单元格A1中输入开始日期。
根据您的需要对其进行格式化，即使用Format Cells对话框并选择日期格式。
在A2单元格，输入以下公式：
```
 
=IF(MOD(ROW(A2),6)=1,A1+1,A1) 
```
复制这个公式下降到在你需要它

来源

2013-02-19 12:15:07

奇怪，但“行（2）”对我不起作用... – Ksenia 2013-02-19 12:18:08

错字！意思是'A2'。现在更正了，谢谢！ – 2013-02-19 12:19:38

试试下面的代码：

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

来源

2013-02-19 12:24:13

用于在Excel 2010中复制和增加日期值的宏

回答

相关问题