Lỗi tiêu đề không rõ ràng: excel vba

[ishikawangocthuy]

xin chào mọi người em lam thanh viên mới mong mọi người giúp đỡ.
em đang làm một phần mền liên quan đến excel vba.
san pham ngay thang so hieu
A 2019/10/12 19-1
B 2019/12/20 19-1
A 2020/12/3 20-2
C 2020/5/6 20-1
B 2020/7/8 20-2
ví dụ như bảng trên dựa vào cột sản phảm và ngày tháng thì em có thể trích ra số hiệu được ko ah
sản phẩm A có hai hàng nên hàng thứ nhất là lấy năm sinh và so thứ tự ban đầu là 1 tiếp theo la 2 ,3 ....
sản phẩm B va C cũng vậy.
em làm như thế này nhung nó ko in dc số thứ tự của từng sản phẩm chứ ko in dc năm vào ah
Sub Mc()
With Sheets("????")
Nb = 1
Cells(1, 1) = Nb
ex = Range("K" & rows.Count).End(xlUp).Row (k la cot san pham)
For i = 2 To ex
If Cells(i, "K") = Cells(i - 1, "K") Then
Nb = Nb + 1
Else
Nb = 1
End If
Cells(i, "A") = Nb (A la cot so hieu)
Next
End With
end sub