vba - 根据相邻列自动向下填充

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