Sub PhanChia()
Dim DongCuoi As Long
DongCuoi = Range("A" & Rows.Count).End(xlUp).Row
Dim BatDau As Long
Dim Mang() As Long
ReDim Mang(2 To DongCuoi) As Long
BatDau = DongCuoi + 2
Cells(BatDau, "A") = "Ket qua"
For i = 2 To DongCuoi
Mang(i) = Int(Cells(i, "B") / Cells(i, "C"))
Range(Cells(BatDau, "B"), Cells(Mang(i) + BatDau, "B")) = Cells(i, "A")
Range(Cells(BatDau, "C"), Cells(Mang(i) + BatDau - 1, "C")) = Cells(i, "C")
Cells(Mang(i) + BatDau, "C") = Cells(i, "B") - Mang(i) * Cells(i, "C")
BatDau = BatDau + Mang(i) + 1
Next
End Sub
