自动填充上次活动行

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

从你的叙述中可以清楚地看出，你是否考虑过“填写”＆＃39;第4行是可以接受的。如果是，那么只需将其更改为lr <> 5。