Bạn thử xem file, không biết đúng ý chưa?Em muốn đánh số thứ tự như file đính kèm. Mong mọi người giúp đỡ, em xin cảm ơn!
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
DIỄN ĐÀN GIẢI PHÁP EXCEL