求助：一段代码中两个不同变量怎么实现？

小年玩卡

For i = 1 To 535 Step 48
For t = 1 To 12
Cells(i + 6, "c") = DateSerial(Year(Date), t, Range("h4") + 1)
Cells(i + 6, "e") = DateSerial(Year(Date), t + 1, Range("h4"))
Next t
Next i

上边代码怎么实现？现在是错的，怎么实现这个效果呢？
i是对应单元格7，55，103,151，199,247295,343，391,439，487,535
t对应的数字是1,2...12

求助该怎么写代码

liulang0808

代码可以运行，如果得不到想要的结果，就是逻辑有问题了
楼主检查下逻辑上的问题吧

要么上传附件，结合附件内容举例描述需求的

山菊花

试试：
For t = 1 To 12
    Cells((t - 1) * 48 + 7, "c") = DateSerial(Year(Date), t, Range("h4") + 1)
    Cells((t - 1) * 48 + 7, "e") = DateSerial(Year(Date), t + 1, Range("h4"))
Next t

小年玩卡

山菊花 发表于 2019-11-10 07:43
试试：
For t = 1 To 12
    Cells((t - 1) * 48 + 7, "c") = DateSerial(Year(Date), t, Range("h4") +  ...

非常感谢，是想要的结果