线性系列的Excelmacros填写一列

我有间歇date的列中的示例数据，我想插入date之间的所有date这些数据。 我想要填充20年以上的日常数据，所以我需要改变下面显示的macros来遍历行与列之间的差异。

Jan-01 20 Jan-02 Jan-03 Jan-05 100 Jan-06 Jan-07 Jan-08 88 

David Zemens发布的下面的macros被devise用来填充数据表

 Year--2013--2014--2015--2016--2017--2018--2019--2020 Male-- 5-- -- 7-- -- -- 8-- -- 10 Fem-- 4-- -- 5-- -- -- 7-- -- 9 Dim rng As Range Dim stepValue As Long Set rng = Range("A2", Range("A2").End(xlToRight)) Do 'Compute the difference between the first & last cell in the range, ' divided by the number of blank cells + 1. stepValue = (rng(rng.Cells.Count).Value - rng(1).Value) / _ (rng.SpecialCells(xlCellTypeBlanks).Count + 1) 'now we can use our computed "stepValue" instead of hard-coding it as a constant: '## Use the resize method to avoid overwriting the last cell in this range rng.Resize(, rng.Cells.Count - 1).DataSeries Rowcol:=xlRows, _ Type:=xlLinear, _ Date:=xlDay, _ Step:=stepValue, _ Trend:=False 'Increment the range to the next row Set rng = Range(rng(1).Offset(1), rng(1).Offset(1).End(xlToRight)) 'Escape the loop only when we reach an empty/blank cell in the first column: Loop Until Trim(rng(1).Value) = vbNullString End Sub 

我需要例行程序向下移动列并填充现有数据之间的数据。 具体来说，我不知道如何增加到同一列的下一行的范围，并有例程select下一组空单元格，并应用线性系列填充。 感谢您的期待