VBA 自动填充特定行数

Question

我正在尝试根据在另一个单元格中找到的数字（根据数据而变化）自动填充列中的特定行数

所以说单元格 D2 = 250

我需要用数字 1,2,3,4,5... 标记 FF4:FF250... 这样它看起来像这样

       Column FF
Cell 4    1
Cell 5    2
Cell 6    3
Cell 7    4
 ...     ...

我正在尝试类似的东西，但它不起作用

Sub AutoFillSpecific()

    MyValue = Range("D2").Value
    Range("FF4").Select
    Selection.AutoFill Destination:=Range(FF4:FFMyValue)

有什么帮助吗？

Answer 1

假设您在 FF4 中有一个值可以自动向下填充：

Range("FF4").Value = 1
Range("FF4").AutoFill Destination:=Range("FF4:FF" & MyValue), Type:=xlFillSeries

您需要添加 Dim MyValue As Long 以避免错误，因为当您将 D2 移入 MyValue.

时，它将确保 D2 的值是一个数字

VBA to Auto Fill Specific Number of Rows