nghĩa của đoạn code về chuỗi số

[nonsense]

Sub chuoiso()
Dim n, k As Integer
n = Cells(1, 1)
k = Cells(2, 1)
Range("D3").Select
ActiveCell.Formula = -n
Range("D4").Select
ActiveCell.Formula = -n + k
Range("D34").Select
Selection.AutoFill Destination:=Range("D34000"), Type:=xlFillDefault
Range("D34000").Select
End Sub

các bạn có cách viết nào đơn giản và dễ hiểu hơn, giúp tôi với. Bởi đoạn code bên trên là mình record macro và chỉnh sửa. Ý đồ của mình muốn có đoạn code cho giá trị từ âm n (-n) đến dương n (+n) và n được tuy chọn.
Ví dụ: chon n =10 trên cells(i,J) thì cho kết quả: -10, -9, ..., -2,-1, 0, 1, 2, ...9, 10

 

[VetMini]

Sub t()
n = [a1]
ReDim a(-n To n)
For i = -n To n
a(i) = i
Next i
' b1 được chọn làm nơi bắt đầu ghi kết quả.
[b1].Resize(n + n + 1, 1) = Application.Transpose(a)
End Sub

 

[Nhattanktnn]

Sub chuoiso()
Dim n, k As Integer
n = Cells(1, 1)
k = Cells(2, 1)
Range("D3").Select
ActiveCell.Formula = -n
Range("D4").Select
ActiveCell.Formula = -n + k
Range("D34").Select
Selection.AutoFill Destination:=Range("D34000"), Type:=xlFillDefault
Range("D34000").Select
End Sub

các bạn có cách viết nào đơn giản và dễ hiểu hơn, giúp tôi với. Bởi đoạn code bên trên là mình record macro và chỉnh sửa. Ý đồ của mình muốn có đoạn code cho giá trị từ âm n (-n) đến dương n (+n) và n được tuy chọn.
Ví dụ: chon n =10 trên cells(i,J) thì cho kết quả: -10, -9, ..., -2,-1, 0, 1, 2, ...9, 10

Hoặc bạn thử cách này:

Sub STT()
[b1].Value = -[a1].Value
[b1].DataSeries xlColumns, xlLinear, Step:=1, Stop:=[a1].Value
End Sub