用於在Excel 2010中複製和增加日期值的宏

我需要在excel中生成如下所示的數據。用於在Excel 2010中複製和增加日期值的宏

格式mm/dd/yyyy日期值和6行......在第七屆應該遞增，一直持續到第12行這樣的順序應重複相同。

是否有任何Excel用戶可以幫助我編寫一個公式/宏等...爲此？

由於提前， Chandu

來源

2013-02-19 Chandu Maddila

假設你已經儲存了第一日期在A1，鍵入A2以下公式：=IF(MOD(ROW(),6)=1,A1+1,A1)，並根據需要自動填充了下來。格式導致的單元格爲Date具有所需的模式。

來源

2013-02-19 12:14:19 Ksenia

+1同樣的解決方案，但你49 「早些時候!-) – 2013-02-19 12:15:48

@PeterAlbert無非就是一個運氣，彼得！） – Ksenia 2013-02-19 12:17:29

該死的夥計，你太快了）晚餐茶花費我一個答案））））我的+1爲你們兩個） – 2013-02-19 12:20:37

在單元格A1中輸入開始日期。
根據您的需要對其進行格式化，即使用Format Cells對話框並選擇日期格式。
在A2單元格，輸入以下公式：
```
 
=IF(MOD(ROW(A2),6)=1,A1+1,A1) 
```
複製這個公式下降到在你需要它

來源

2013-02-19 12:15:07

奇怪，但「行（2）」對我不起作用... – Ksenia 2013-02-19 12:18:08

錯字！意思是'A2'。現在更正了，謝謝！ – 2013-02-19 12:19:38

試試下面的代碼：

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-19 12:24:13

用於在Excel 2010中複製和增加日期值的宏

回答

相關問題