2014-03-30 126 views
0

我想写一个VBA代码,选择最后一个非空行和下一个空行,并做一个数据系列自动填充日期,但没有得到进展,请助攻。代码如下:VBA代码选择最后一行amd下一个空行

ActiveWindow.SmallScroll Down:=9 
Range("A8560:A8561").Select 
Selection.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _ 
    xlDay, Step:=1, Trend:=False 

在此先感谢。

+0

考虑有关[接受答案](http://meta.stackexchange.com/questions/5234/how-does-accepting- an-answer-work/5235#5235)之前询问新问题。 –

回答

1

要在列中的最后一个非空行的用途:

Cells(Rows.Count, 1).End(xlUp).Activate