Chèn dòng & xoá những dòng trống

[trantuonganh2008]

Mình có một workbook gồm 6 sheet. Mình muốn thực hiện 1 marco sao cho tự động chèn thêm 10 dòng sau dòng A8 ở tất cả các sheet (biết rằng hiện tại A9 đang có dữ liệu là text). Sau khi nhập dữ liệu các sheet này xong thì những dòng nào còn trống thì mình muốn delete những dòng này ở 6 sheet luôn thì làm cách nào? Mong các bạn chỉ giúp nhé, cám ơn nhiều!!!

 

[ptlong04x1]

Chuyện này đương nhiên phải dùng VBA rồi, bạn đưa file lên xem dữ liệu thế nào đã, sẽ có cách giải quyết. Chạy code này coi sao :

Sub RIns()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.[a9].Resize(10).EntireRow.Insert
    Next sh
    Application.ScreenUpdating = True
End Sub

Sub ERDel()
    Dim i As Long, sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        With sh.UsedRange
            For i = .Rows.Count To 1 Step -1
                If WorksheetFunction.CountA(.Cells(i, 1).EntireRow) = 0 Then _
                .Cells(i, 1).EntireRow.Delete
            Next i
        End With
    Next sh
    Application.ScreenUpdating = True
End Sub