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

全部,

我已经写了一个小程序，我希望每个循环都有一个新的步骤，将当前月份插入到第一个单元格“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

任何有关这方面的帮助都将不胜感激

将

“m”

放在非

m

位置

m

将是一个变量

“m”

是一个表示参数“month”的文本字符串

---

+1.还有。模块顶部的Option Explicit会选择这个选项，因为它会突出显示“m”作为未声明的变量。这就是我们使用它的原因：）

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