excel：在VBA或函数中生成年份范围内的缺失年份

Question

我一直在寻找功能/vba 宏解决我的问题的几个小时 - 不幸的是无济于事......也许你们可以帮忙？

我需要在一个范围内生成“间隔”年份（year_start year_end - 单独的输入），即对于 1997-2002，脚本应该生成（最好在一列中，值用 , 分隔）以下内容： 1997、1998、1999、2000、2001、2002。

请帮忙！

提前非常感谢您的帮助！

谢谢！

Answer 1

如果您必须使用 VBA，而不是 Excel 的内置 自动填充，请尝试以下操作：

dim iYear As Integer, iYearS as integer, iYearE as integer, iOffset as integer
dim oRangeStart as range

set orangestart=range("A1")

iYearS =1997
iYearE = 2002

for iYear = iYearS to iYearE
    orangestart.offset(iOffset,0).value=iyear
    iOffset=iOffset+1
next

但你肯定可以自动填充吗？