tự động điền xuống theo cột liền kề

Question

Tôi đang tìm mã VBA sẽ tự động điền dữ liệu theo độ dài của cột liền kề. Tôi biết có một số cách để đi về việc này, nhưng đó là tốt nhất ?:

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

hoặc một cái gì đó như:

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

Tôi chắc rằng không ai trong số những công việc chính xác làm thế nào tôi muốn nó vậy tôi đang thiếu gì?

Answer 1

Không cần bất kỳ điều kiện nào. Chúng ta có thể lấy hàng được sử dụng cuối cùng của cột C và điền dữ liệu vào cột D tương ứng.

Sub test() 

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

End Sub