填充一系列基於另一個單元格的單元格，但繼續編號的數字系列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