Nhờ ACE làm một đoạn code tự động copy dòng có điều kiện. Em cảm ơn ạ. (1 người xem)

[poloni09]

Em đang làm kiểm kê và cần in nhãn để dán.

Em có file đính kèm ạ.

-Nếu cột "Số lượng" = n thì in thêm n-1 dòng ngay dưới trong hiện tại
-Làm đến hết các cột có số liệu trong cột "Số lượng" ạ.

Em cảm ơn

 

[Ba Tê]

Em đang làm kiểm kê và cần in nhãn để dán.

Em có file đính kèm ạ.

-Nếu cột "Số lượng" = n thì in thêm n-1 dòng ngay dưới trong hiện tại
-Làm đến hết các cột có số liệu trong cột "Số lượng" ạ.

Em cảm ơn

Thử với Code này xem:

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, TT As Long
    Rng = Sheet1.Range(Sheet1.[A2], Sheet1.[A100].End(xlUp)).Resize(, 3).Value
ReDim Arr(1 To 65000, 1 To 3)
    For I = 1 To UBound(Rng, 1)
        TT = 0
        For J = 1 To Rng(I, 1)
            TT = TT + 1
            K = K + 1
            Arr(K, 1) = TT: Arr(K, 2) = Rng(I, 2): Arr(K, 3) = Rng(I, 3)
        Next J
    Next I
Sheet1.[E2].Resize(K, 3).Value = Arr
End Sub

 

[poloni09]

Hay quá ạ. Em cảm ơn nhiều.