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

Question

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

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

请帮忙！

非常感谢您的帮助！

谢谢！

Answer 1

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

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

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