Hỏi cách Tạo mã theo nhóm STT

[nqdn2010]

Tôi có file đính kèm, xin hỏi cách đánh mã theo nhóm hàng phụ thuộc số thứ tự.
(Dữ liệu thêm bớt tùy ý nhưng vẫn giữ định dạng như bảng mẫu)

 

[LamNA]

Tôi có file đính kèm, xin hỏi cách đánh mã theo nhóm hàng phụ thuộc số thứ tự.
(Dữ liệu thêm bớt tùy ý nhưng vẫn giữ định dạng như bảng mẫu)

Bạn thử

 

[befaint]

.

 

[nqdn2010]

Thank, Để tôi Test thử

Bài đã được tự động gộp: 12/9/18

Bạn thử

Mình muốn dùng code.

befaint

Tuyệt vời
Thank sự giúp đỡ 2 bạn

 

[SA_DQ]

Bạn sửa đứa con tinh thần của bạn là vầy là được:

Sub DanhSTT()
Dim Cls As Range:                      Dim Ma As String
' On Error Resume Next                  '
For Each Cls In Range("B2:B" & [C65000].End(xlUp).Row)
    If Cls <> "PL" And Cls(1, 2) <> "" Then
        Cls.Value = "=MAX(R[-1]C)+1":   Cls.Value = Cls.Value
        Cls.Offset(, -1) = Ma & CStr(Cls.Value)
    Else
        Ma = Cls.Offset(, -1)
    End If
Next
End Sub