Insert thêm số dòng từ dữ liệu cho trước

[sangista]

Chào mọi người,

Hiện tại mình có 1 dữ liệu như bên dưới. Mình muốn insert thêm số dòng liền sau và copy dữ liệu y như dòng gốc. Cao nhân hỗ trợ giúp em với a. em đính kèm file

Kết quả

 

[SA_DQ]

Bạn xài tạm cách này, còn có cách nhanh hơn:

Option Explicit
Sub ThemDongTheoSoChoTruoc()
Dim Rws As Long, J As Long, iDg As Integer, Col As Integer, iNum As Integer, W As Long, Cot As Integer

With Sheet1
    Rws = .[e2].CurrentRegion.Rows.Count
    Col = .[B2].CurrentRegion.Columns.Count
    J = Application.WorksheetFunction.Sum(.[e2].Resize(Rws))
    ReDim Arr(1 To J + 9, 1 To Col)
    For J = 2 To Rws
        iDg = .Cells(J, "E").Value
        For iNum = 1 To iDg
            W = W + 1
            Arr(W, 1) = W
            For Cot = 2 To Col
                Arr(W, Cot) = .Cells(J, Cot).Value
            Next Cot
        Next iNum
    Next J
End With
Sheets("KQua").[G2].Resize(W, Col).Value = Arr()  'Kiêm Tra Kêt Qua & Sua Lai Dia Chi  '
End Sub