Excelマクロがさまざまな行に自動入力しないようにしました

Question

マクロを作成しようとしています。

LR = Range("Y3333333").End(x1Up).Row 
Range("C3").AutoFill Destination:=Range("Y3:Y" & LR) 

LR = Range("C3333333").End(x1Up).Row 
Range("C3").AutoFill Destination:=Range("R3:R" & LR) 

LR = Range("C3333333").End(x1Up).Row 
Range("C3").AutoFill Destination:=Range("B3:B" & LR) 

LR = Range("C3333333").End(x1Up).Row 
Range("C3").AutoFill Destination:=Range("A3:A" & LR) 

これを実行するたびに、私の行数が変わります。これらの（4）列は、行1または2には何もありません。行3は、最後の列にコピーしたい数式です。

列Cは、すべての行について常にすべての時間情報を持つ唯一の列です。

Answer 1

使用を自動入力する必要はありません。

Dim LR As Long 
With Worksheets("Sheet1") 'Change to your Worksheet name 
    LR = .Cells(.Rows.Count, 3).End(xlUp).row 
    .Range("Y3:Y" & LR).FillDown 
    .Range("R3:R" & LR).FillDown 
    .Range("B3:B" & LR).FillDown 
    .Range("A3:A" & LR).FillDown 
End With 

Answer 2

代替それを書いている（より一般的な）方法は次のとおりです。

Dim LR As Long 
LR = Activesheet.Range("Y" & Rows.Count).End(xlUp).Row 
Range("C3").AutoFill Destination:=Range("Y3:Y" & LR) 

これは、任意のシート（も互換モード）で動作します、とあなたはもう