使自动填充macros更加dynamic

我有关于自动填充macros的以下问题。

首先我试图录制一个macros：

'Sub bbbbbbbbb() ' ' bbbbbbbbb Macro ' ' Range("I15").Select Selection.AutoFill Destination:=Range("I15:I45") Range("I15:I45").Select End Sub' 

其次，我试图修改它变得更加dynamic：我将代码更改为如下（例如，如果我的数据增加到100）

 'Sub aaaaaaaaaaa() ' ' aaaaaaaaaaa Macro ' ' Range("I15").Select Selection.AutoFill Destination:=Range(Selection, Selection.End(xlDown)) End Sub' 

问题是它不适用于我的最后一个数据的结束，但是我的Excel工作表的结尾，任何人都可以build议吗？ 非常感谢

Answer 1

也许这样

 Sub YourMacro() Range("I15").AutoFill Range("I15:I" & Range("I" & Rows.Count).End(xlUp).Row) End Sub 

所以你不需要使用.Select

Answer 2

这是我使用，但没有AutoFill 。

 Dim lrow as long '-->Determine the last row based on a reference row. In this case it's Column H. lrow = Range("H" & Rows.Count).End(xlUp).Row Range("I15:I" & lrow).Formula = "=Formula or Value you wish to autofill" 

希望这可以帮助你得到你想要的。