Thử với Code này xem: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
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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2