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。