在 Excel (2003) 宏中用序列号填充单元格

Question

我需要用一个连续的系列填充一个 excel 列，在这种情况下从 -500 到 1000。我有一个宏来完成它，但它需要很多行，因为它看起来应该是一个单一的函数[类似于 FillRange(A2:A1502, -500, 1000, 1)]。但如果该功能存在，我找不到它。以下内容是否像它一样简单和优雅？

'Draw X axis scale
Cells(1, 1).Value = "mV"
Cells(2, 1).Value = -500
Cells(3, 1).Value = -499
Cells(4, 1).Value = -498

Dim selection1 As Range, selection2 As Range

Set selection1 = Sheet1.Range("A2:A4")
Set selection2 = Sheet1.Range("A2:A1502")

selection1.AutoFill Destination:=selection2

Answer 1

Range("A1")=-500
Range("A1").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Stop:=500, Trend:=False

Answer 2

Sub FillASeries()

    With Sheet1.Range("a1")
        .Value = -500
        .AutoFill .Resize(1501, 1), xlFillSeries
    End With

End Sub

我不认为有一个单一的功能，但这是我能做的程序的最短时间。