根據相鄰列自動填充

Question

我正在尋找VBA代碼，它將根據相鄰列的長度自動填充數據。 我知道有幾種方法可以解決這個問題，但哪種方法最好？：

If LastRow > Selection.Row Then
   Range("D2").AutoFill Destination:=Range("D2:D" & LastRow)

或類似的東西：

If Not IsEmpty(ActiveCell.Offset(0,1)) Then
   Range("D2").AutoFill Destination:=Range("D2:D" & LastRow)

我很確定這些都不是我想要的，所以我錯過了什么？

Answer 1

沒有任何if條件。 我們可以得到列C的最后一行，並相應地填充D列中的數據。

Sub test()

    Dim lastRow As Long
    lastRow = Range("C" & Rows.Count).End(xlUp).Row
    Range("D2").AutoFill Destination:=Range("D2:D" & lastRow)

End Sub