Nhập Số Thứ Tự Theo Điều Kiện. (1 người xem)

[minhhangg]

Em muốn nhập STT theo điều kiện từng môn học, mỗi một môn học có nhiều giáo viên. Em có kèm theo file ạ.

 

[mickeybh]

Tại A13 bạn nhập công thức =IF(B13=B12,A12+1,1)

 

[thanhsangnguyen1982]

Công thức tại A13=COUNTIF($B$13:$B13;$B13)

 

[minhhangg]

Cảm ơn 2 bạn, đơn giản vậy mà em suy nghỉ không ra, học càng ngày càng dốt đây.

 

[Quang_Hải]

Cảm ơn 2 bạn, đơn giản vậy mà suy nghỉ ra, em càng làm thấy em càng dốt.

Code đi Hằng ơi

Sub STT()
Dim Sarr(), i As Long, k
With Sheets("DSGV")
   Sarr = .Range(.[A13], .[B65536].End(3)(2)).Value
   For i = 1 To UBound(Sarr) - 1
      Sarr(1, 1) = 1
      If Sarr(i + 1, 2) = Sarr(i, 2) Then
         k = k + 1
         Sarr(i + 1, 1) = k
      Else
         k = 1
         Sarr(i + 1, 1) = k
      End If
   Next
   .[A13].Resize(i - 1, 2) = Sarr
End With
End Sub