自动填充为最后一个活动行

我使用的代码是：

Range("U5:AK5").AutoFill Destination:=Range("U5:AK" & Range("A" & Rows.Count).End(xlUp).Row) 

列A的数据是dynamic的，有时最后一个活动行将已经是5（与公式行相同），或者有时候只有行4。 如果列A中的数据下降到第4行，我不会收到错误。 但是，如果它到第5行，我得到一个错误。 很明显，如果比5更远，我不会有错误。

Answer 1

在继续之前，请检查是否要填写第5行以下的任何行。

 Dim lr As Long With Worksheets("Sheet3") lr = .Range("A" & Rows.Count).End(xlUp).Row If lr > 5 Then _ .Range("U5:AK5").AutoFill Destination:=.Range("U5:AK" & lr) End With 

从叙述来看，你是否认为第4行的“填补”是可以接受的。 如果是，那就把它改成lr <> 5 。