マクロExcel：アクティブな行だけを実行する

Question

私の行にはいくつかの大文字小文字があり、70000があり、いつでも増やすことができます。

Range("G1").Select 
    ActiveCell.FormulaR1C1 = "DateFrom" 
    Range("G2").Select 
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-4],""HH"")" 
    Range("G2").Select 
    Selection.AutoFill Destination:=Range("G2:G99999") 

Answer 1

以下のようにコードを変更する必要があります。注記列最後の行を処理するために調整する必要がある参照。それは適合するように変更する必要があります。

Range("G1").FormulaR1C1 = "DateFrom" 
Range("G2").FormulaR1C1 = "=TEXT(RC[-4],""HH"")" 
Range("G2").AutoFill Destination:=Range("G2:G" & Range("A" & Rows.Count).End(xlUp).Row)