用于选择最后一行和下一空行的VBA代码

Question

我正在尝试编写一个VBA代码，用于选择最后一个非空行和下一个空行并执行数据系列以自动填充日期但未取得进展，请协助。代码如下：

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

提前致谢。

Answer 1

要选择A列中的最后一个非空行，请使用：

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