Nhờ đánh số thứ tự theo điều kiện bằng VBA (1 người xem)

[thanhphan157]

Nhờ các các anh chị trong GPE giải quyết giùm e với ạ có thể dùng sub được là tốt nhất ạ. (file đính kèm)

 

[phulien1902]

Nhờ các các anh chị trong GPE giải quyết giùm e với ạ có thể dùng sub được là tốt nhất ạ. (file đính kèm)

Bạn tạm dùng cái dưới đây trong khi chờ cái tốt nhất nhé

Sub abc()
    Dim i%, LR%, k%
    LR = Range("B" & Rows.Count).End(3).Row
    k = 0
    For i = 4 To LR Step 10
        Cells(i, 1) = [b1] + 1 + k: k = k + 1
    Next
    Columns(1).NumberFormat = "0"
    Range("A4:A" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
End Sub

 

[thanhphan157]

Bạn tạm dùng cái dưới đây trong khi chờ cái tốt nhất nhé

Sub abc()
    Dim i%, LR%, k%
    LR = Range("B" & Rows.Count).End(3).Row
    k = 0
    For i = 4 To LR Step 10
        Cells(i, 1) = [b1] + 1 + k: k = k + 1
    Next
    Columns(1).NumberFormat = "0"
    Range("A4:A" & Cells(Rows.Count, 2).End(xlUp).Row).SpecialCells(4).FormulaR1C1 = "=R[-1]C"
End Sub

Chào bạn, cái này chỉ điền theo thứ tự thôi chứ được theo điều kiện ở cột (B) bạn.

 

[befaint]

For i = 4 To LR Step 10

Hình như chưa đúng á anh.
------
Bài này để đơn giản thì dùng cột phụ oánh dấu thứ tự cho cột B (1) >> sort A-Z cho cột B >> đánh số >> Sort cột B lại theo (1).

 

[phulien1902]

Chào bạn, cái này chỉ điền theo thứ tự thôi chứ được theo điều kiện ở cột (B) bạn.

Xin lỗi bạn, tôi chưa đọc kỹ, chán thế đấy.

 

[Phuocam]

Y chang bài này! chỉ thay số 20 thành 10
https://www.giaiphapexcel.com/diendan/threads/xếp-học-sinh-vào-lớp-mà-không-trùng.135497/post-863051