Question

我对自动填充宏有以下问题。

首先我尝试录制一个宏：

'Sub bbbbbbbbb()
'
' bbbbbbbbb Macro
'

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

其次，我尝试将其修改为更具动态性：我将代码更改为如下（例如，如果我的数据增加到100）

'Sub aaaaaaaaaaa()
'
' aaaaaaaaaaa Macro
'

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

End Sub'

问题是它不适用于我最后一个数据的结尾但是我的excel工作表的结尾，有人可以提出建议吗？非常感谢

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"

希望这有助于你得到你想要的东西。

使自动填充宏更具动态性

2 个答案: