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。