将月份添加到上一个单元格日期 对于每个循环

Question

All，

我写了一个小程序，我希望每个循环将当前月份插入第一个单元格"01"/MM/YY，然后在通过循环时向日期添加一个月。使用下面的示例;

K1 = 01/06/2018
L1 = 01/07/2018
M1 = 01/08/2018 etc

我使用的代码如下 - 错误在DateAdd行上。

Sub test()
Dim dt As date
dt = "01/" & Application.Text(Now(), "MM/YY")
Dim i As Double
i = 1
For Each c In Range("K1:XFD1")
If c.Value = "" Then Exit For  
c.Value = dt
'change date to one months time
dt = DateAdd(m, i, dt)
i = i + 1     
Next c
End Sub

任何这方面的帮助将不胜感激。

Answer 1

把"m"放在不m.m将是一个变量。"m"是一个文本字符串，表示参数为"月"。

dt = DateAdd("m", i, dt)