Question

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

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/2013

格式mm/dd/yyyy的日期值和6行相同的...在第7行中它应该递增并持续到第12行，就像序列应该重复一样。

任何excel用户都可以帮我写一个公式/宏等吗？为此？

提前致谢， Chandu

Answer 1

假设您已在[{1}}中存储了第一个日期，请输入A1以下公式：A2并根据需要自动填充。将格式化为=IF(MOD(ROW(),6)=1,A1+1,A1)的格式为必需模式。

Answer 2

在单元格A1中输入您的开始日期。
根据需要对其进行格式化，即使用“设置单元格格式”对话框并选择日期格式。
在单元格A2中，输入以下公式：
```
=IF(MOD(ROW(A2),6)=1,A1+1,A1)
```
将此公式复制到您需要的位置

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

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

3 个答案: