Nhờ các anh chị giúp em tách mặt hàng theo số lượng

[Nguyenhoangphong0902]

Xin chào các cao thủ, nhờ các cao thủ giải giúp em bài này, giá trị nhân với số lượng sẽ ra số dòng mong muốn. Các anh chị giải dùm em.Đội ơn anh chị cao thủ ạ

 

[BuiQuangThuan]

Xin chào các cao thủ, nhờ các cao thủ giải giúp em bài này, giá trị nhân với số lượng sẽ ra số dòng mong muốn. Các anh chị giải dùm em.Đội ơn anh chị cao thủ ạ

Bạn nên sửa lại tiêu đề đi rồi sẽ có code

 

[Hoàng Trọng Nghĩa]

Xin chào các cao thủ, nhờ các cao thủ giải giúp em bài này, giá trị nhân với số lượng sẽ ra số dòng mong muốn. Các anh chị giải dùm em.Đội ơn anh chị cao thủ ạ
View attachment 266775

Bạn thử dùng code dưới đây:

Sub CamBuoi()
    Dim shData As Worksheet
    Dim arrData, arrSoLuong, arrKetQua
    Dim e As Long, h As Long, n As Long, r As Long, s As Long
    Set shData = Sheets("Sheet1")
    e = shData.Range("A" & shData.Rows.Count).End(xlUp).Row
    arrData = shData.Range("A2:A" & e).Value
    arrSoLuong = shData.Range("B2:B" & e).Value
    s = WorksheetFunction.Sum(arrSoLuong)
    ReDim arrKetQua(1 To s, 1 To 1)
    For r = 1 To UBound(arrData)
        For h = 1 To arrSoLuong(r, 1)
            n = n + 1
            arrKetQua(n, 1) = arrData(r, 1)
        Next
    Next
    shData.Range("D2").Resize(s).Value = arrKetQua
End Sub

 

[VetMini]

Bạn nên sửa lại tiêu đề đi rồi sẽ có code

Hình như bây giờ cái vụ "tiu đề" tiêu rồi, không còn cần phải theo điều lệ nữa.

 

[batman1]

Hình như bây giờ cái vụ "tiu đề" tiêu rồi, không còn cần phải theo điều lệ nữa.

He he.

Ngày mai có khó khăn trong viết code lọc thuốc mà dữ liệu là các loại thuốc chống thai thì có lẽ tiêu đề sẽ là "Nhờ các cao thủ hỗ trợ thuốc tránh thai khẩn cấp giúp em"
Mà vấn đề quan trọng thế thì không biết "cao thủ" là đủ không hay phải "cao thủ võ lâm" nhỉ.

Chú: Tiêu đề đã được sửa lại. Tiêu đề cũ là: "Nhờ các cao thủ hỗ trợ cam chanh bưởi quýt giúp em".
Nếu không chú thích thì bài viết trở nên vô duyên.

 

[Nguyenhoangphong0902]

Em cảm ơn các cao thủ ạ. Em là người mới còn trẻ người non dại lắm........mong các cao thủ chỉ giáo thêm.

 

[BuiQuangThuan]

Em cảm ơn các cao thủ ạ. Em là người mới còn trẻ người non dại lắm........mong các cao thủ chỉ giáo thêm.

Code này với code bài #3 giống nhau về cách làm. Do mình có nói bạn sửa tiêu đề thì sẽ đưa code lên nên mình đưa lại cho bạn tham khảo

Sub abc()
Dim arr(), Res(), Sum&, i&, j&, K&
With Sheet1
    arr = .Range("A2:B"& .Range("A" & shData.Rows.Count).End(3).Row).Value
    Sum = Application.WorksheetFunction.Sum(.Range("B:B"))
    If Sum < 0 then Exit Sub
    ReDim Res(1 To Sum)
    For i = 1 To UBound(arr, 1)
        If arr(i, 2) > 0 Then
            For j = 1 To arr(i, 2)
                K = K + 1
                Res(K) = arr(i, 1)
            Next
        End If
    Next
    If k then  .Range("E2").Resize(K).Value = Application.WorksheetFunction.Transpose(Res)
End With
End Sub