VBA tách dòng tổng thành các dòng phụ

Chia sẻ bởi:hands

★★★★★

‹ Add-Ins Cho Excel – Tổng Hợp Dữ... điền dữ liệu cột hệ số dựa... ›

Quảng cáo

Nhờ các cao nhân chỉ dạy giúp em có tool nào có thể tách dòng tổng thành các dòng phụ.
Như trong file đính kèm thì có sheet "Đề bài" và sheet "kết quả mong muốn".
Ví dụ: tổng là 25,000 tách thành 5 dòng số lượng 5,000. Và khi run tool thì các dòng đó khi chạy xuống sẽ không đè vào dòng đang có sẵn.

Cảm ơn các cao nhân!

Làm tạm cái code này.
Nhấn vào nút "TÁCH" nhé

Option Explicit
Sub tach()
Dim lr&, i&, j&, t&, k&, c&, rng, arr(1 To 100000, 1 To 9)
With Sheets("Sheet1")
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    rng = .Range("A2:H" & lr).Value
    For i = 1 To UBound(rng)
        c = Int(rng(i, 7) / rng(i, 8))
        For t = 1 To c
            k = k + 1
            For j = 1 To 8
                arr(k, j) = rng(i, j)
            Next
            If t > 1 Then
                arr(k, 1) = "": arr(k, 4) = 0: arr(k, 7) = 0
            End If
            arr(k, 9) = "ROHM"
        Next
    Next
End With
Sheets.Add after:=Sheets(Sheets.Count)
Range("A1:H1").Value = Sheets("Sheet1").Range("A1:H1").Value
Range("I1").Value = "Maker"
Range("A2:I100000").ClearContents
Range("A2").Resize(k, 9).Value = arr
Range("A2:I2").EntireColumn.AutoFit
End Sub