自動填充到最后一個活動行

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 。