Macro Excel: nur aktive Zeilen ausführen

Question

Ich habe einige Fall auf meine Reihen haben nur 70000 und kann jederzeit erhöhen können Sie Jungs helfen, zu finden, welchen Code zu nehmen gerade aktive Zelle?

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

Sie müssen wie unten Code ändern. Hinweis Spalte Eine Referenz, die Sie anpassen müssen, um die letzte Zeile auszuarbeiten. Es sollte geändert werden, um zu passen.

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)