VBA - 使用增量复制和粘贴

Question

我需要帮助创建一个VBA来重复复制单元格范围，其中一列具有增量。

当前数据 enter image description here

预期产出

enter image description here

我找到了一个vba，但只会根据C列复制行而不会在日期增加

Excel VBA automation - copy row "x" number of times based on cell value

Answer 1

我不确定为什么你需要这样做，因为excel对这些场景有内置模式模式识别，如果你将鼠标悬停在单击边框上然后向下拖动，输入两个成功日期后，所需的日期范围将自动显示在列中。

如果你仍然坚持以编程方式出于某种原因这样做，那么你的问题已经在这里有多个可行的解决方案：Add one day to date in cells using VBA

依次指定每个单元格，然后按相应的行号递增该值，以返回A列中所需的日期范围：

          Range("A2").Value = Range("A2").Value + 2 ' add 2 days
          Range("A3").Value = Range("A3").Value + 3 ' add 3 days
          Range("A4").Value = Range("A4").Value + 4 ' add 4 days

          '-------- So on and so forth until desired range is acheived --------'

或者：

           Range("A2").value = DateAdd("d", 2, CDate(Range("A2")))
           Range("A3").value = DateAdd("d", 3, CDate(Range("A3")))

作为必须要努力学习的人，请接受我的建议并确保在发布之前彻底研究您的问题以找到解决方案。如果需要，请参阅指南here。