Đúng rồi. Mình sửa lại rồi, nhanh vô đối luôn.
a = Range("C" & Rows.Count).End(3).Row
I = 3
For v = 3 To a
If Cells(I + 1, 3) = "" Then
k = 1
Else
Cells(I, 3).End(xlDown).Select
k = Range(Cells(I, 3), Cells(I, 3).End(xlDown)).Count
End If
Cells(I, 5) = k & " phan tu"...