Đánh số thứ tự theo ngày tháng

[Miccpro]

Em muốn đánh số thứ tự như file đính kèm. Mong mọi người giúp đỡ, em xin cảm ơn!

 

[Hoàng Tuấn 868]

Em muốn đánh số thứ tự như file đính kèm. Mong mọi người giúp đỡ, em xin cảm ơn!

Bạn thử xem file, không biết đúng ý chưa?

 

[SA_DQ]

Bạn có thể xài macro sau:

Sub SoTTTheoNgay()
Dim Dat As Date, J As Long, STT As Integer

For J = 2 To [B2].End(xlDown).Row
    If Cells(J, "B").Value <> Dat Then
        Dat = Cells(J, "B"):        STT = 1
    Else
        STT = STT + 1:
    End If
    Cells(J, "E").Value = STT
Next J
End Sub