Các bạn giúp mình với: tôi có đoạn code (2 người xem)

[nonsense]

Sub chuoiN()
Dim n, j, k As Long
j = Cells(1, 1)
k = Cells(2, 1)
For n = -k To k
Cells(k + 3 + n, 3) = n * j
Next
End Sub

khi J =1 thì chuỗi số luôn đúng ý đồ từ -k tới +k
nhưng khi j khác 1 thì nó không còn đúng nữa, ta nên viết lại code như thế nào?
ví dụ ta vào excel cho j = 3 và k = 9
thì nó phải ra kết quả là: -9, -6, -3, 0, 3, 6, 9 thì mới đúng

Bài đã được tự động gộp: 18/2/24

Sub chuoiN()
Dim n, j, k As Long
j = Cells(1, 1)
k = Cells(2, 1)
For n = -k To k
Cells(k + 3 + n, 3) = n * j
Next
End Sub

khi J =1 thì chuỗi số luôn đúng ý đồ từ -k tới +k
nhưng khi j khác 1 thì nó không còn đúng nữa, ta nên viết lại code như thế nào?
ví dụ ta vào excel cho j = 3 và k = 9
thì nó phải ra kết quả là: -9, -6, -3, 0, 3, 6, 9 thì mới đúng

 

[VetMini]

For n = -k \ j To k \ j
Cells(k \ j + 3 + n, 3) = n * j

Chú: code này viết ẩu nên rác quá..