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 )

宏Excel：只执行活动行

1 个答案: