Nhờ giúp đỡ - Tách mã tài sản theo số lượng

[castanea]

Chào mọi người.
Em có file như sau. vì lúc đầu em chỉ quản lý tài sản theo số lượng. nhưng giờ cần tách ra và đặt thêm số thứ tự để gán cho nhân sự.
VD mã MTDELLI5 số lượng là 10 thì sẽ tách làm 10 dòng và đánh số thứ tự là Mã-xxx (xxx là số ký tự tang dần)
Cảm ơn mọi người nhiều ạ!

 

[Ba Tê]

Chào mọi người.
Em có file như sau. vì lúc đầu em chỉ quản lý tài sản theo số lượng. nhưng giờ cần tách ra và đặt thêm số thứ tự để gán cho nhân sự.
VD mã MTDELLI5 số lượng là 10 thì sẽ tách làm 10 dòng và đánh số thứ tự là Mã-xxx (xxx là số ký tự tang dần)
Cảm ơn mọi người nhiều ạ!

Chỉ giúp được bạn bằng VBA thôi.

Public Sub sGpe()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, N As Long, R As Long
sArr = Sheets("Data").Range("B3", Sheets("Data").Range("B3").End(xlDown)).Resize(, 3).Value
R = UBound(sArr)
ReDim dArr(1 To R * 100, 1 To 4)
For I = 1 To R
    N = sArr(I, 2)
    For J = 1 To N
        K = K + 1
        dArr(K, 1) = K
        dArr(K, 2) = sArr(I, 1) & "-" & Format(J, "000")
        dArr(K, 3) = 1
        dArr(K, 4) = sArr(I, 3)
    Next J
Next I
Sheets("TaiSan").Range("A3").Resize(1000, 4).ClearContents
Sheets("TaiSan").Range("A3").Resize(K, 4) = dArr
End Sub

 

[Nguyễn Hồng Quang]

Chào mọi người.
Em có file như sau. vì lúc đầu em chỉ quản lý tài sản theo số lượng. nhưng giờ cần tách ra và đặt thêm số thứ tự để gán cho nhân sự.
VD mã MTDELLI5 số lượng là 10 thì sẽ tách làm 10 dòng và đánh số thứ tự là Mã-xxx (xxx là số ký tự tang dần)
Cảm ơn mọi người nhiều ạ!

Công thức Mình làm thẳng trên sheet1 của bạn luôn , làm bên sheet2 bạn tự làm nhé

 

[castanea]

Cảm ơn các bạn nhiều ^_^