Thêm Bớt Nhiều dòng trong VBA (2 người xem)

[Phạm Trường 80]

Xin Chào các bác! file của e dùng nút bấm chèn thêm 3 dòng xuống dưới,cụ thể chạy Macros 1 lần thì thêm 3 dòng xuống dưới dòng 6 và format giống dòng 456.Các bác đi qua giúp e với!

 

[bebo021999]

Vì bạn không nói rõ là chèn xong có tạo công thức tính tổng hay không, nên tạm thời mình copy/chèn 3 dòng trên xuống cho bạn.
Như thế nào thì tính tiếp nhé
1 sub thêm dòng, 1 sub xoá dòng và 1 sub dùng chung cho 2 sub kia

Option Explicit
Public rng As Range, lcell As Range
Sub ThemDong()
Application.ScreenUpdating = False
    ChonVung
    rng.Copy
    lcell.Insert shift:=xlDown
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub XoaDong()
Application.ScreenUpdating = False
    ChonVung
    If lcell.Row <= 7 Then Exit Sub
    rng.Delete shift:=xlUp
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub ChonVung()
Set lcell = Cells(Rows.Count, "A").End(xlUp)
Set rng = lcell.Offset(-3, 0).Resize(3, 2)
End Sub

 

[Phạm Trường 80]

Vì bạn không nói rõ là chèn xong có tạo công thức tính tổng hay không, nên tạm thời mình copy/chèn 3 dòng trên xuống cho bạn.
Như thế nào thì tính tiếp nhé
1 sub thêm dòng, 1 sub xoá dòng và 1 sub dùng chung cho 2 sub kia

Option Explicit
Public rng As Range, lcell As Range
Sub ThemDong()
Application.ScreenUpdating = False
    ChonVung
    rng.Copy
    lcell.Insert shift:=xlDown
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub XoaDong()
Application.ScreenUpdating = False
    ChonVung
    If lcell.Row <= 7 Then Exit Sub
    rng.Delete shift:=xlUp
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub ChonVung()
Set lcell = Cells(Rows.Count, "A").End(xlUp)
Set rng = lcell.Offset(-3, 0).Resize(3, 2)
End Sub

Cảm ơn rất nhiều! là tôi cần chèn 3 dòng rỗng có format lần lượt như 3 dòng trên ấy nhé!