0

我需要在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在 6 行上相同......在第 7 行中，它应该递增并持续到第 12 行，就像应该重复序列一样。

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

在此先感谢，昌杜

4

3 回答 3

8

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

于 2013-02-19T12:14:19.577 回答
3
  1. 在单元格 A1 中输入您的开始日期。
  2. 根据您的需要对其进行格式化，即使用“单元格格式”对话框并选择日期格式。
  3. 在单元格 A2 中，输入以下公式：
    =IF(MOD(行(A2),6)=1,A1+1,A1)
  4. 将此公式复制到您需要的位置
于 2013-02-19T12:15:07.213 回答
0

试试下面的代码：

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-19T12:24:13.517 回答