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

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

根据您的叙述，您是否认为 'filling down' 第 4 行是可以接受的并不完全清楚。如果是，则只需将其更改为 lr <> 5.

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

Autofill to last active row

excel

vba

autofill