VBA自动填充特定的行数

我试图根据另一个单元格中发现的数字自动填充列中特定数量的行（基于数据进行更改）

所以说单元格D2 = 250

我需要用数字1,2,3,4,5来标记FF4：FF 250 …所以它看起来像这样

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来避免错误，因为它将确保在将值移到MyValue时，D2的值是一个数字。