创build一个日历表

我想创build一个从2014年6月30日到2015年6月30日的全年开始日历表。 还有一个variables的值应该分配给当年的每一天：Column1 = C1，Column2 = C2

C1 C2 0 30/06/2014 0 01/07/2014 0 02/07/2014 . . . . 0 30/06/2015 3 30/06/2014 3 01/07/2014 3 02/07/2014 . . . . 3 30/06/2015 123 30/06/2014 123 01/07/2014 123 02/07/2014 . . . . 123 30/06/2015 

所以最好我的桌子看起来像这样。 15个值乘以366天= 5490行。

我创build了一个数组，其值可能对迭代有用。

 StartDate = #6/30/2014# For i = 1 To 366 j = 4 Cells(i, 2) = StartDate StartDate = DateAdd("d", 1, StartDate) Cells(i, 1) = valuearray(j) Next i 

我手动更改了J的值，因为我无法find自动执行此过程的正确方法。 任何想法应该如何安排我的循环和迭代来自动化这个过程？

Answer 1

我已经为你的数组添加了一个循环。 见下文：

 Sub myArray() ' Dim my(1 To 3) As Long my(1) = 10 my(2) = 30 my(3) = 50 For k = 1 To 3 StartDate = #6/30/2014# For i = 1 To 366 Cells((i + (k * 366)) - 366, 2) = StartDate Cells((i + (k * 366) - 366), 1) = my(k) StartDate = DateAdd("d", 1, StartDate) Next i Next k ' End Sub