用于选择单元格公式和自动向下填充的VBA代码

Question

我正在尝试编写一个 VBA 代码，该代码将自动填充单元格 H2 中的公式，直到 H 列。我有记录宏的代码，但我需要它来处理常规报告，其中行数会随着时间的推移而变化。本质上，我希望自动填充 H2 直到 A 列中有值，但是无论实际有多少行数据，这个都会每次自动填充到第 30533 行，对吗？

Sub Select_Cell_Copy_Down()


Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H30533")

Range("H2:H30533").Select

End Sub

Answer 1

你可以这样做：

Sub Select_Cell_Copy_Down()
    Dim ws As Worksheet, rng As Range
    
    Set ws = ActiveSheet
    'use the last-occupied cell in Col A to set the range in Col H
    Set rng = ws.Range("H2:H" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
    
    ws.Range("H2").AutoFill Destination:=rng
    rng.Select
End Sub