[Help] VBA đánh số thứ tự lặp lại từ trên xuống

[robinhsoon]

Thân chào cả nhà GPEX.

Hiện tại em có 01 File gồm 02 cột Store và STT.
em muốn dùng VBA đánh số thứ tự từ 1 đến 15 và sau đó lặp lại 1 đến 15 cho đến khi hết các dòng ở cột A.

Mong cả nhà giúp đỡ ạ.

 

[Hoàng Tuấn 868]

Hiện tại em có 01 File gồm 02 cột Store và STT.
em muốn dùng VBA đánh số thứ tự từ 1 đến 15 và sau đó lặp lại 1 đến 15 cho đến khi hết các dòng ở cột A.

Dùng công thức được không bạn, tham khảo file .

 

[VetMini]

Dùng công thức được không bạn, tham khảo file .

Không được.
Công thức mất công gõ và fill.
VBA, nếu nhờ được người viết gài vào file và gán cho cái nút thì chỉ việc "bấm một phát".

Dự đoán là sẽ có cái câu "vài trăm ngàn dòng, công thức nặng file" để thuyết phục viết code.

 

[robinhsoon]

Không được.
Công thức mất công gõ và fill.
VBA, nếu nhờ được người viết gài vào file và gán cho cái nút thì chỉ việc "bấm một phát".

Dự đoán là sẽ có cái câu "vài trăm ngàn dòng, công thức nặng file" để thuyết phục viết code.

Đúng ý em rồi ạ, em muốn bấm 1 nút cho nhanh không phải làm bằng công thức, vì dùng công thức file rất nặng ạ

 

[snow25]

Thân chào cả nhà GPEX.

Hiện tại em có 01 File gồm 02 cột Store và STT.
em muốn dùng VBA đánh số thứ tự từ 1 đến 15 và sau đó lặp lại 1 đến 15 cho đến khi hết các dòng ở cột A.

Mong cả nhà giúp đỡ ạ.

Bạn thử code này xem.

Sub danhso()
    Dim i As Long, lr As Long, arr, kq
    With Sheets("test")
         lr = .Range("A" & Rows.Count).End(xlUp).Row - 1
         ReDim kq(1 To lr, 1 To 1)
         For i = 1 To lr
             kq(i, 1) = (i - 1) Mod 15 + 1
         Next i
         .Range("B2:B" & lr + 1).Value = kq
    End With
End Sub

 

[robinhsoon]

Bạn thử code này xem.

Sub danhso()
    Dim i As Long, lr As Long, arr, kq
    With Sheets("test")
         lr = .Range("A" & Rows.Count).End(xlUp).Row - 1
         ReDim kq(1 To lr, 1 To 1)
         For i = 1 To lr
             kq(i, 1) = (i - 1) Mod 15 + 1
         Next i
         .Range("B2:B" & lr + 1).Value = kq
    End With
End Sub

Cảm ơn anh ạ, em làm được rồi ạ.

Chúc anh sức khỏe và thành công