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

Posted 2023-02-24

【中文标题】自动填充到最后一个活动行

【英文标题】：Autofill to last active row

【发布时间】：2016-05-26 04:19:43

【问题描述】：

我使用的代码是：

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

A 列的数据是动态的，有时最后一个活动行已经是 5（与公式相同的行），有时只是第 4 行。如果 A 列中的数据下降到第 4 行，我不会收到错误消息。但如果它转到第 5 行，我会收到错误消息。显然，如果它超过 5，我不会收到错误消息。

【参考方案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。

【讨论】：

嘿吉普德。我将代码用于需要自动填充的所有选项卡，并且它与您的技能一样完美地工作。太感谢了。 :-)

如果 LR（最后一行）取自同一个电子表格中的另一个工作表，我需要对代码进行哪些更改？