我想在 excel-vba 中编写一个代码，它在工作表的一列中填充特定年份的日期。
代码还应考虑闰年。说，我在单元格 B1 中输入了年份（如 2020），所以 A 列应该填充 366 个日期条目（考虑到闰年）。
你可以循环一个Date变量：
Sub dater()
Dim yr As Long, d As Date, i As Long
yr = Range("B1").Value
For d = DateSerial(yr, 1, 1) To DateSerial(yr, 12, 31)
i = i + 1
Cells(i, 1) = d
Next d
End Sub
这将自动处理闰年并根据需要填充 366 或 365 单元格。
（格式化A列以满足您的需要）
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句