填充一系列基于另一个单元格的单元格，但继续编号的数字系列7,8,9 ...

Question

这是我目前使用的代码。但是我希望它取得它从A2中抓取的数值，并在填充ColN范围时增加1。这将创建一系列数字，而不是全部是相同的数字。

Order = Range("A2") 

Range("N2").Select 
ActiveCell.FormulaR1C1 = Order 
Range("N2").Select 
Range("N2", Range("N2").End(xlDown)).Name = "typeColRange" 
Selection.AutoFill Destination:=Range("N2:N" & Range("A" & Rows.count).End(xlUp).Row) 

Answer 1

为什么不只是做一个好的循环？有时，简单是最好也是最重要的，当你看它时，更容易告诉代码试图做什么。

Sub test() 

Dim i As Long, lastCell As Long, counter As Long 

lastCell = Range("A" & Rows.Count).End(xlUp).Row 
counter = Range("A2").Value 

For i = 2 To lastCell 
    Cells(i, "N") = counter 
    counter = counter + 1 
Next 

End Sub