基於另一個單元格的值自動填充x行數的代碼

Question

我有一個宏，它將根據另一個單元格中的值自動將工作表向下填充為若干行。

我的代碼如下。 目前，它只會自動將系列填充到參考單元格中該值的行號。 （基本上，如果我在引用的單元格上有數字40，那么代碼會自動填充到第40行，而不是我需要的40行）。

想知道是否有人可以在這里幫助我。

    Range("A8").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A8:A" & Range("J1").Value), Type:=xlFillSeries
    Range("A8:A104").Select

這是代碼的一部分，該代碼將其他信息復制到工作表中。

Answer 1

像這樣？

Option Explicit

Public Sub test()
    With ActiveSheet
       AutoFillRange .Range("A8"), Range("J1").Value
    End With
End Sub

Public Sub AutoFillRange(ByVal startCell As Range, ByVal numberOfRows As Long)
    startCell.AutoFill Destination:=startCell.Parent.Range(startCell, startCell.Offset(numberOfRows - 1)), Type:=xlFillSeries
End Sub

Answer 2

嘗試：

Range("A8").AutoFill Destination:=Range("A8").Resize(Range("J1").Value,1), Type:=xlFillSeries