Xin hỏi cách đánh số thứ tự trong excel (các ô đánh số không liên tiếp)

[anhtuan.1511]

Các bác giúp mình vụ này với ạ.
Mình có một file excel cần đánh lại số bắt đầu từ 1
hiện tại file excel đang được đánh số bắt đầu tư 3, bây giờ làm thế nào để đánh số bắt đầu từ 1 lại được. (Các ô đánh số không liên tiếp). Các bác xem hộ em file này. Cái cột màu vàng em đánh dấu đó ạ. Cám ơn các bác.
https://dl.dropbox.com/u/16504239/Book3.xlsx

 

[vanle33]

Các bác giúp mình vụ này với ạ.
Mình có một file excel cần đánh lại số bắt đầu từ 1
hiện tại file excel đang được đánh số bắt đầu tư 3, bây giờ làm thế nào để đánh số bắt đầu từ 1 lại được. (Các ô đánh số không liên tiếp). Các bác xem hộ em file này. Cái cột màu vàng em đánh dấu đó ạ. Cám ơn các bác.
https://dl.dropbox.com/u/16504239/Book3.xlsx

Bạn tham khảo ở đây
http://www.giaiphapexcel.com/forum/archive/index.php/t-3495.html

 

[mhung12005]

Các bác giúp mình vụ này với ạ.
Mình có một file excel cần đánh lại số bắt đầu từ 1
hiện tại file excel đang được đánh số bắt đầu tư 3, bây giờ làm thế nào để đánh số bắt đầu từ 1 lại được. (Các ô đánh số không liên tiếp). Các bác xem hộ em file này. Cái cột màu vàng em đánh dấu đó ạ. Cám ơn các bác.
https://dl.dropbox.com/u/16504239/Book3.xlsx

Bạn nhập 1 vào ô A4 và thử dùng công thức này cho ô A5 xem sao:

=IFERROR(IF(FIND("TỔNG CỘNG",C4)=1,MAX($A$4:A4)+1,""),"")

Kéo xuống.

 

[Ba Tê]

Tặng bạn code này, chép vào Module, cho nó "Rung" 1 cái là xong.

Public Sub GPE()
Dim Rng(), Arr(), I As Long, K As Long
    Rng = Sheet1.Range(Sheet1.[A4], Sheet1.[A65000].End(xlUp)).Value
ReDim Arr(1 To UBound(Rng, 1), 1 To 1)
    For I = 1 To UBound(Rng, 1)
        If Rng(I, 1) > 0 Then
            K = K + 1: Arr(I, 1) = K
        End If
    Next I
Sheet1.[A4].Resize(UBound(Rng, 1)).Value = Arr
End Sub

 

[hoangvuluan]

Góp thêm 1 cách, dùng công thức sau cho ô Ã, sau đó copy xuống
=IF(AND(B4<>"", COUNTA(E4:H4)=0), MAX($A$3:A3)+1, "")