riempimento automatico secondo colonna adiacente

Question

Sto cercando il codice VBA che riempirà automaticamente i dati in base alla lunghezza di una colonna adiacente. So che ci sono alcuni modi per andare su questo, ma che è meglio ?:

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

o qualcosa di simile:

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

Sono piuttosto sicuro che nessuno di questi funzionano esattamente come lo voglio quindi cosa mi manca?

Answer 1

Non è necessaria alcuna condizione se. Possiamo ottenere l'ultima riga usata della colonna C e riempire i dati nella colonna D di conseguenza.

Sub test() 

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

End Sub