Phân tích dữ liệu từ tổng thành chi tiết dựa theo số lượng

[hic1802]

Xin chào mọi người trên GPE,
Hôm nay mình có 1 vấn đề nhờ mọi người giúp
Mình muốn phân tách dữ liệu từ bảng dữ liệu 1 thành bảng dữ liệu 2 dựa vào cột số lượng như hình phía dưới
Mình gửi file đính kèm phía dưới

 

[PacificPR]

Xin chào mọi người trên GPE,
Hôm nay mình có 1 vấn đề nhờ mọi người giúp
Mình muốn phân tách dữ liệu từ bảng dữ liệu 1 thành bảng dữ liệu 2 dựa vào cột số lượng

Mình lại quên đính kèm file rồi kìa

 

[hic1802]

Mình lại quên đính kèm file rồi kìa

bạn xem lại giúp mình, lúc nãy bị đơ chuột bạn à

 

[PacificPR]

bạn xem lại giúp mình, lúc nãy bị đơ chuột bạn à

Bạn thử xem sao nhé

Sub GPE()
    Dim sArr(), dArr(), N As Long
    Dim I As Long, K As Long
    Dim Nub As Long, Idx As Long
sArr = Range("A3", Range("A" & Rows.Count).End(xlUp)).Resize(, 5).Value
N = Application.Max(Range("D3", Range("D" & Rows.Count).End(xlUp)))
ReDim dArr(1 To UBound(sArr, 1) * N, 1 To UBound(sArr, 2))
For I = 1 To UBound(sArr)
    If sArr(I, 4) <> Empty Then
        For Idx = 1 To sArr(I, 4)
            K = K + 1
            dArr(K, 1) = K:                dArr(K, 2) = sArr(I, 2)
            dArr(K, 3) = sArr(I, 3):     dArr(K, 4) = Idx
            dArr(K, 5) = sArr(I, 5) / sArr(I, 4)
        Next Idx
    End If
Next I
If K Then
    Range("P3:P5000").Resize(, 5).ClearContents
    Range("P3").Resize(K, 5) = dArr
End If
End Sub