VBA - 以增量复制和粘贴

Question

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

当前数据

预期输出

我找到了一个 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。