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

根据相邻列自动填充

1 个答案: