隣り合う列の自動塗りつぶし

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