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

用于根据另一个单元格的值自动填充x行数的代码

2 个答案: