Đánh số thứ tự khi có cell merge

[livefuz]

Hi các bác, bác nào chỉ giúp mình với, mình có danh sách khoảng 2k dòng, muốn đánh số thứ tự tự động nhưng mà trong cột thứ tự có nhiều ô phải merge từ 2, 3, 4, ...10 dòng thành 1 ô.
Làm sao để đánh số thứ tự một cách nhanh nhất, mà ko phải đang tự động đánh thứ tự thì đến ô bị merge này phải nhập bằng tay.

Thank các bác nhiều

 

[phulien1902]

Hi các bác, bác nào chỉ giúp mình với, mình có danh sách khoảng 2k dòng, muốn đánh số thứ tự tự động nhưng mà trong cột thứ tự có nhiều ô phải merge từ 2, 3, 4, ...10 dòng thành 1 ô.
Làm sao để đánh số thứ tự một cách nhanh nhất, mà ko phải đang tự động đánh thứ tự thì đến ô bị merge này phải nhập bằng tay.

Thank các bác nhiều

Bạn đưa File lên đây xem thế nào.

 

[livefuz]

Như file đính kèm là 1 phần nhỏ của danh sánh tổng.
Các ô bị merge là cột đầu tiên, text đỏ

Thanks

 

[befaint]

Các ô bị merge

Điều kiện nào để gộp các ô ở cột A?
Bạn gửi file thật đang làm lên nào...

 

[phulien1902]

Như file đính kèm là 1 phần nhỏ của danh sánh tổng.
Các ô bị merge là cột đầu tiên, text đỏ

Thanks

Bạn thử:

Sub ABC()
    Dim i, LR
    LR = Range("B" & Rows.Count).End(3).Row
    Application.ScreenUpdating = False
    [A1] = 1
    For i = 2 To LR
        Range("A" & i) = Application.Max(Range("A2:A" & i - 1)) + 1
    Next i
    Application.ScreenUpdating = True
End Sub

 

[livefuz]

Gõ số 1 vào A1.
Chọn từ A2:A27 -> nhấn F2 trên bàn phím: nhập công thức =MAX($A$1:A1)+1 -> Ctrl+Enter

Thank bác nhiều, làm thế này là đc rồi.

 

[ha na 0510]

Bạn thử:

Sub ABC()
    Dim i, LR
    LR = Range("B" & Rows.Count).End(3).Row
    Application.ScreenUpdating = False
    [A1] = 1
    For i = 2 To LR
        Range("A" & i) = Application.Max(Range("A2:A" & i - 1)) + 1
    Next i
    Application.ScreenUpdating = True
End Sub

Cái này để làm j đấy bạn ơi