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

Question

我使用的代码是：

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

A 列的数据是动态的，有时最后一个活动行已经是 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。